Visual Basic - extraño error en consulta

rs_Novedad.Open "Select * From COD_MOVIMIENTO " & _
"Where CODIGO1 = " & vBuscar _
, cn, _
adOpenKeyset, _
adLockOptimistic, _
adCmdText

por que esta consulta me dá que no se han especificado valores para alguno de los parametros requeridos. Alquien puede ayudarme?

la variable vBuscar es de tipo texto, el campo Codigo1 es de tipo texto de longitud 2. La variable tambien toma 2 de longitud. Por ejemplo vBuscar toma el valor "AT".
AT si existe en la tabla Cod:_Movimiento. La verdad que no encuentro logica.
Desde ya muy agradecido

Hola Julio:
Prueba a probar esto:

rs_Novedad.Open "Select * From COD_MOVIMIENTO " & _
"Where CODIGO1 = '" & vBuscar & "';", cn, _
adOpenKeyset, _
adLockOptimistic, _
adCmdText

Pon comillas simples en la variable, ya que es de tipo texto.

Espero que te funcione.

Saludos
Ana

ASI FUNCIONA ... Remito código, cómo fuente de consulta para otros usuarios

"CODIGO1 = '" & vBuscar & "'"

Gracias
Saludos Julio