'Kullanıcı adını giriniz

If IsNull(Me.kullanıcı) Or Me.kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbCritical, "BİLGİ"
Me.kullanıcı.SetFocus
Exit Sub
End If

'Kullanıcı şifresini giriniz



'Girilen kullanıcı adı ve şifreyi "tblŞifre" tablosundan kontrol et

If Me.Şifre.Value = Dlookup ("Şifre", "tblsifre", "[ID]=" & Me.kullanıcı.Value) Then



'Şifre formunu kapat ve frmAdmin kullanıcı tanımlama formunu aç

Form.Visible = False
DoCmd.OpenForm "FRMANA"

Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "BİLGİ"
Me.Şifre.SetFocus
End If

'Eğer Kullanıcı 3 kez yanlış işlem yaparsa programı kapat

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "Sisteme giriş için uygun kod ve şifre girilemedi.", vbCritical, "BİLGİ"
Application.Quit
End If
------------------------------
kodlar bunlar fakat kendı programımda yapamadım

program son hali upload::

http://rapidshare.com/files/381689885/ve...e.mdb.html

---

ellerine sağlık güzel olmuş
http://rapidshare.com/files/381689885/ve...e.mdb.html
bu link üzerinde düzenleyebilirmisin acaba o yaptıklarını?