SoloCodigo

Bueno aqui esta un ejemplo con "mi logica."  

Llenas tu tabla en memoria con un query mas o menos asi:

tablax = "Select password from usuarios where usuario='" & txtusuario & "'"

No funciona exactamente asi pero bueno... tu modificas tu consulta en el codigo.

Eso buscara el password que le corresponde a ese usuario en la tabla. Se supone que los usuarios son unicos, por consiguiente si el usuario existe solo habra un registro en esa tabla.

Entonces...

if tablax.recordcount < 1 then

Msgbox("El usuario no existe")
exit sub

else

if tablax.fields(password) = txtpassword.text then

' conceder acceso ya que se comprobo que el usuario existe y su password es correcto.

else

Msgbox("Contraseña incorrecta, bla bla bla")
'limpiar campos, enviar foco al txtpassword.

end if
end if

Los pocos logins que he hecho en mi vida han sido mas o menos asi.  

Hey, pero si te puse mas explicaiones que codigo  

Lo que pasa es que veo que estas usando un dataset y no soy muy amigo de esos.

Yo hago una variable de tipo recordset con la referencia de ADODB.

algo asi:


Imports ADODB

Public sub abrir()

Dim base as new adodb.connection
dim tablax as new adodb.recordset

base.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; data source = mybd"

try
base.open

catch ex as  (no recuerdo pero se escribe solo)

end try



with tablax

.activeconnection = base
.open("Select password  from usuarios where usuario='" & txtusuario & "'")

end with


End Sub



Despues de esto aplicas lo que te dije antes obviando el paso del query que ya esta ahi.

Mas detallado de ahi, se daña.  
Ab

Cool.