Access de Veritabanının İlk Açılışındaki Parola Sormayı ,Kullanıcı Girişini Nasıl Yapabilirim Bana Yardım Eder misiniz Arkadaşlar....

Arkadaşlar merhaba kod ile veri silerken şifre sorması için ne eklemem lazım? Yardımcı olursanız sevinirim.


[vb]Private Sub Komut27_Click()
On Error GoTo Err_Komut27_Click
Dim c As Integer
c = MsgBox("Seçilen satış silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "Bilgi")
If c = vbOK Then
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 Me.Liste22.Requery
ElseIf c = vbCancel Then
Me.Undo
End If

Exit_Kom