Modül ekleyip glb_userrs yi recordset olarak tanımlıyoruz. Veya sizin istediğiniz bir isim. global Glb_UserRS As Recordset Daha sonra access te bir kayıt açıp user olarak tanımlıyoruz. daha sonra kullanacağımız say ve rs tanımlanıyor. Dim say As Integer Dim rs Form yüklenirken açmış olduğunuz kayıttan bilgi alıyor. Private Sub Form_Load Set Combo1. DataSource = Glb_SystemDB. Execute Combo1. DataField = "user" Set rs = Glb_SystemDB. Execute rs. MoveFirst Do While Not rs. EOF Combo1. AddItem rs! User ' combo ya kayıtlı kullanıcıları aktarıyor. rs. MoveNext Loop say = 1 End Sub Private Sub Combo1_Click combo 1 den kullanıcı seçiliyor. degistir_cmd. Visible = True pwd. SetFocus End Sub Private Sub Command1_Click şifre yanlışsa hata veriyor. If Combo1. Text = "" Then MsgLbl = " Kullanıcı Veya Şifre Girilmemiş.. Tekrarlayınız " Exit Sub End If Glb_UserRS. Find "user ='" & Combo1. Text & "'" If Glb_UserRS. EOF Then End Burada sifre yanlışa saydırmaya başlıyoruz. 3 kere yanlış giriş sistemden atıyor. MsgLbl = " Kullanıcı Veya Şifre Yanlış.. Tekrarlayınız " pwd. SetFocus End If End If say = say + 1 If say > 3 Then End End Sub Alıntıdır

)) tşk ederim dostummm