Veo varios detalles en tu código.
Tuyo:
.CommandText = "select * from passwords where" & "nombre ='" & "txtusuario.Text" & "'"
Sugerencia:
.CommandText = "SELECT * FROM passwords WHERE nombre ='" & "txtusuario.Text" & "'"
En el If que tienes me parece que hay algo de incongruencia:
If Then
MsgBox (" BIENVENIDO AL SISTEMA")
Else
x = MsgBox("usuario EQUIVOCADO", vbCritical, "MENSAJE")
End If
No estás comparando nada. El If siempre cumple la condición de verdadero. Aquí es donde debes de comparar el password que almacenaste en el Recordset y el password que el usuario ha tecleado.
Necesitas algo similar a:
If rstnombre("password") = txtpassword.txt Then
Saludos,
<div align="center"><a href="http://membres.lycos.fr/raac/"><img src="http://membres.lycos.fr/raac/Img/barra_raac.gif" width="400" height="20" border="0"></a></div>