ayuda con formulario de acceso

[taison7]

hola, yo tengo un ejercicio muy similar al tuyo y talvez te puede ser de gran ayuda, se trata de una agenda que en el primer form1 que es el de acceso pide login y password, primero digitas el login y si no es correcto muestra un mensaje de que el usuario no es correcto y si si es correcto pasa al password aqui tambien hace lo mismo pero cuando lo ingreses correctamente te dejara ver la agenda. Tambien en el form1 de acceso da la opcion de cabiar o modificar el login y el password. tengo dos tablas una se llama acceso y otra tusuario en tu caso solo la tabla acceso Este es el codigo del form1 de acceso:

Código:

Public base As Database
Public acceso As Recordset

Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
acceso("login") = text1
acceso("passaword") = text2
acceso.Update
End Sub

Private Sub Form_Load()
Set base = OpenDatabase(App.Path & "\agenda.mdb")
Set acceso = base.OpenRecordset("acceso", dbOpenDynaset)

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If text1 = "" Then
Label4.ForeColor = &HFF&
Label4.Caption = "Digite nombre de acceso"
text1.Text = ""
text1.SetFocus

Else
buscar = "login='" & text1 & "'"
acceso.FindFirst buscar
If acceso.NoMatch Then
Label4.ForeColor = &HFF&
Label4.Caption = "El nombre de acceso es incorrecto"
text1.SetFocus
Else
Label4.ForeColor = &HFF00&
Label4.Caption = "El nombre de acceso es valido"
text2.SetFocus
End If
End If
End If
End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If text2 = "" Then
Label5.ForeColor = &HFF&
Label5.Caption = "Digite contraseña"
text2.SetFocus
Else
If acceso.Fields("password") = text2 Then
If acceso.Fields("login") = text1 Then
Form2.Show
Unload Me
Else
Label5.ForeColor = &HFF&
Label5.Caption = "Usuario no existe"
text2.SetFocus

End If
End If
Label5.ForeColor = &HFF&
Label5.Caption = "La contraseña es incorrecta"

End If
End If
End Sub

creo que con este codigo puedes organizar tus ideas y crear tu formulario de acceso.
espero que te sirva de ayuda.