recordset.index = "Usuario" 'pon entre comillas el campo de la tabla donde tengas el nombre de usuario
recordset.seek "=", txtusuario.text 'aki pon el text donde se introduzca el user
'Ahora, si el usuario existe lo habra encontrado si nos se produce Nomatch
if recordset.nomatch then
msgbox "No se ha encontrado el usuario"
else
if recordset(Contraseña)= txtcontraseña.text
Msgbox "Clave correcta, Bienvenido" 'pones lo q quieras para acceder, no es obligatorio el msgbox
else
msgbox "Clave incorrecta"
end if
end if