Falla en validar Login y Password

[rafapaskual]

Hola,
Este último post no lo entiendo, tu que tienes una base de datos con una tabla de usuarios o una base de datos con usuarios para acceder a esa base de datos? tal y como lo tienes parece que sea el último caso pero en los mensajes anteriores parece lo contrario! jeje que lio!

Te doy mi versión si lo que tienes es una tabla con usuarios haz algo así:

Dim Cnn as new ADODB.Connection
Dim Rs as ADODB.Recordset
Dim SQL as String

cnn.conectionstring= La cadena de conexión que necesites
cnn.open
set Rs=new ADODB.Recordset
SQL="Select usuario, password from USUARIOS where USUARIO='" & Trim(txtUsuario.text) & "'"
Rs.open SQL,cnn

if not (rs.eof and rs.bof) then 'si se cumple esto es que existe el usuario
if trim(CStr(rs.fields(1).value))=trim(txtPasswd.text ) then 'si se cumple esto el password es correcta
Tirapalante.show
UNload me
else
msgbox "La contraseña no es válido"
end if
else
msgbox "El usuario no existe"
end if

rs.close
cnn.close

Esto deberia irte, el único problema es que si la contraseña tiene un valor NULL el CSTR de generará un error. Falta controlar los errores del recordset, la conexion y el del valor NULL.

Espero que te sirva!! Saludos!