Validar Usuario y Password en BD Acces desde Excel

Hola Expertos, estoy haciendo una conexion a una base de datos de Access 2003, he creado una tabla con los nombres de los usuarios y password, ambos campos tipo Texto, y estoy haciendo la conexion desde excel, pero no he podido validarlos, me sale el error : "Se ha producido el error '2147217904 (80040e10)' en tiempo de ejecucion: No se ha especificado valores para alguno de los parametros requeridos."
El problema es que no me esta validando el campo en tipo texto, solo en numero ya que cuando cambio el tipo de valor en la tabla a numero, si me funciona, pero necesito validarlo en tipo texto.
Aqui esta mi codigo:
Private Sub CommandButton1_Click()
Dim Com As New ADODB.Command
Set Com = New ADODB.Command
Dim ConStr As String, ComStr As String
Dim Usuario, Passw As String
Usuario = ActiveSheet.Range("A3").Value
Passw = ActiveSheet.Range("A5").Value
ConStr = "Provider = Microsoft.jet.oledb.4.0; data source = C:\Documents and Settings\Camilo\Mis documentos\prueba.mdb; Persist Security Info=False"
ComStr = "select [Users].* from Users where ((([Users].[User ID])=" & Usuario & ") AND (([Users].[Psw])=" & Passw & "));"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Call rs.Open(ComStr, ConStr, adOpenStatic)
If rs.RecordCount = 0 Then
MsgBox "El nombre de usuario o contraseña no son correctos", vbOKOnly, "Error"
Else
MsgBox "Bienvenido", vbOKOnly, "Correcto"
End If
End Sub

Añade tu respuesta

Haz clic para o