Error de Sintaxsis falta operador

Prueba así, tienes que definr los dos campos que condicionas en el WHERE:
Cuando tengas dudas de la sintaxis te recomiendo que crees la consulta en el generador de consultas y cuando tengas los resultados que deses solo pégala en el código, saludos.
("select pass.*, Usuario, password FROM pass where= usuario '" & Usuario & "' and password = '" & Contraseña & "'")

Mi amigo he probado esa sintaxis que me enviaste:
Private Sub Comando6_Click()
Dim Base As Database
Dim Pass As Recordset
Set Base = CurrentDb
Set Pass = Base.OpenRecordset("select pass.*, Usuario, password FROM pass where= usuario '" & Usuario & "' and password = '" & Contraseña & "'")
If Pass.RecordCount = 0 Then
respuesta = MsgBox("Contraseña Incorrecta")
Exit Sub
End If
End Sub
De todos modos me sigue dando este error:
Error de sintaxis (falta operador) en la expresión de consulta '=usuario 'gibbonp' and password'".
Lo que llegue a verifica es que en VB la sintaxis que esta mal me marca en amarillo, reviso paso a paso pero en la ultima linea cuando arrimo el cursor del mouse en contraseña me dice vacío.
¿Tiene un correo donde te puedo enviar la imagen?

El error es porque no te esta tomando bien el valor de contraseña, el de usuario si porque te muestra gibbonp, checa la caja de texto de password a lo mejor te esta hacioendo ruido el que password es una palabra reservada de access y una de las reglas de programación es que no se deben utilizar las palabras reservadas, puede que sea eso puede que no... mi correo es [email protected] yo ya no uso el RecordSet para hacer la búsqueda, ¿conoces la funciones DLookup() y Nz()?
Private Sub Boton_Click()
Dim var As String
var = ""
var = Nz(DLookup("[USUARIO]", "sys_user", "[USUARIO] = '" & Me.txt_usuario & "' AND [NOMBRE] = '" & Me.txt_password & "'"))
If var = "" Then
MsgBox "El usuario y/o la contraseña son incorrectos... ", vbOKOnly, "Aviso"
Exit Sub
Else
MsgBox "Vientos huracanados......si tienes acceso ", vbOKOnly, "Aviso"
End If
End Sub
Pruébalo así, este ejemplo lo acabo de hacer en un formulario y si funciona bien
Para ti seria así:
var = Nz(DLookup("[Usuario]", "pass", "[Usuario] = '" & Usuario & "' AND [password] = '" & Contraseña & "'"))
Teclea Dlokoop() en tu codigo marcalo (sombrealo) y presiona F1 para que veas la ayuda y sepas de que se trata Nz() es para que no te marque error si encuentra nulos.
Si despues de probar la te sigue dando error enviame tu formulario y tu tabla en un .zip pero en access 2002 ó 2003

Gracias mi amigo, voy a probar y te comento como voy.
Saludos y Gracias de nuevo.

Mi amigo me ha dado nuevamente error, te envíe a tu correo mi tabla y formulario en formato 2002-2003 zipeados y una imagen del error.
Gracias