Formulario de login con user y pass

[lokoman]

Hola!
Que bueno que lo lograste resolver, aqui otra forma mas reducida:

Código vb:

'
Private Sub cmdAceptar_Click()
   Dim rstDatos as ADODB.Recorset
   Dim strSelect as string
 
   Set rstDatos = new ADODB.Recorset
   rstSelect="SELECT * FROM TABLA_USUARIOS WHERE USERNAME='" & trim(txtUsuarios.Text) & "'"
   rstDatos.Source=strSelect
   rstDatos.Open, CONEXION_BD
 
   If rstDatos.EOF = False Then
      If trim(txtPassword.text)=trim(rstDatos!PASS) then
'TODO ESTA CORRECTO!!!
         Configurador.Show         
      Else
         MsgBox "El Password está incorrecto!!", vbInformation
         txtPassword.SetFocus
      End If
   Else
      MsgBox "El usuario no existe!!", vbInformation
      txtUsuarios.SetFocus
   End If
End Sub