Muchachos Ya logre integrar mi codigo con el ejemplo que tenia y que funcione que es lo mas importante, les dejo el codigo para que le puedan ver:
Código:
Private Sub cmdOK_Click()
Dim mensaje As String
txtUser.SetFocus
If (txtUser.Text = "admin" And txtPass.Text = "agepos10") Then
mensaje = MsgBox("¡Bienvenido!", vbInformation, "AGEPOS Configurador")
Unload Me
Configurador.Show
Me.users.Recordset.MoveFirst
Me.users.Recordset.Find "username = '" & txtUser.Text & "'"
ElseIf Me.users.Recordset.EOF Then
mensaje = MsgBox("El Nombre de Usuario no es Correcto!", vbExclamation, "Atencion")
txtUser.SetFocus
SendKeys "{home}+{end}"
ElseIf users.Recordset!pass = txtPass.Text Then
mensaje = MsgBox("¡Bienvenido!", vbInformation, "AGEPOS Configurador")
Unload Me
Configurador.Show
Else
mensaje = MsgBox("La clave no es correcta", 0 + 16, "Atencion")
txtPass.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Les comento como me funciono porque si pegan el codigo asi nomas no les va a funcionar:
en el form ademas de el boton de aceptar y cancelar y los 2 textbox de user y pass (los cuales no los asocie a ningun ADO), creo un adobc que se conecte a mi base de datos a la tabla de usuarios, y lo mas importante otro textbox el cual si conecte con mi adobc a la columna de ID de usuario.
Si haces esto seguro funciona.
Saludos y ya se puede dar por cerrado el tema.