Visual Basic - SELECT con fechas

Quiero hacer una consulta. Uno de los campos de la tabla es una fecha. La variable donde recibo la fecha "FechaControl", la trato con la funcion DateSerial

Entonces la tabla tiene un campo codigo de articulo y fecha. Es necesario
consultar el codigo y la fecha, porque sin ya existen, hay que pasarlos por alto. Pero
al combinar la consulta con la fecha no me funciona

¿Como es la sintaxis de la consulta para que funcione?

A continuacion envio el codigo para una mejor comprension.
- - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

FechaControl = DateSerial(Year(fecha1), Month(fecha1), Day(fecha1) ' aaa/mm/dd


Si a la consulta le QUITO la fecha, FUNCIONA CORRECTAMENTE

strSQL = "SELECT * FROM TablaControl " & _
"WHERE str(TablaControl.Codigo)=" & Str(CodigoObraSocial)

Pero, lamentablemente, es necesario considerar tambien la fecha, y ahI NO FUNCIONA
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

strSQL = "SELECT * FROM TablaControl " & _
"WHERE str(TablaControl.Codigo)=" & Str(CodigoArticulo) & _
"And TablaControl.FECHA_REMESA =" & FechaControl

Set rsControl = DB.OpenRecordset(strSQL)

If Not (rsControl.BOF And rsControl.EOF) Then
'Debe Salir -Ya se recupero-
MsgBox "ya se recupero"
rsTablaControl.Close
Exit Sub
Else
'Corresponde actualizar TablaControl y Continuar
rsTablaControl.AddNew
rsTablaControl!Codigo = CodigoArticulo
rsTabla!FECHA_REMESA = FechaControl
rsTabla!fecha = Date
rsTabla!hora = Time
rsTablaControl.Update
rsTablaControl.Close
End If

. . . . .
Desde ya agradezco su ayuda....

Estas trabajando con Access.
Si es así debes poner # antes y despues de la fecha en la SLQ, el formato ya lo asignas correctamente (YYYY/MM/DD).

Quedaría así:
....
"And TablaControl.FECHA_REMESA =#" & FechaControl & "#"

Si no funciona lo comentas y probamos otra cosa.

Un saludo

Problema superado exitosamente. Muchas Gracias