2 preguntitas...

[bubilo]

Private Sub Command1_Click()
With Clave
.ActiveConnection = Data
.Open ("SELECT * FROM Users WHERE User='" & Text1 & "'")
End With
If Clave.RecordCount = -1 Then ' Si la tabla no tiene registros
MsgBox "Usuario Inexitente"
Else
If Clave!Clave = Passwd Then ' si tiene me fijo si la clave es correcta
MsgBox "Contraseña Correcta!"
Else
MsgBox "Contraseña Incorrecta"
End If
End If
Clave.Close
End Sub


EN los controles txtbox existe un propiedad "Passwordchar" ponele cualquier valor con que quieras que se remplazen las letras *,#,$,%, o el que vos quieras...