Visual Basic - no habre la la tabla

miren en esta instruccion el abre la table y trae el numero del registro y la fecha, pero cuando consulto registros nuevos dice que no hay un registro activo. pero si consulto registros de meses atras si trae toda la informacion.

Public Sub Leer()
On Error GoTo EvaluarError
dosx = Format$(dosx, "mm/dd/yyyy")
psql1 = "SELECT * From TFlujoProductivo1 WHERE (((TFlujoProductivo1.asecodigo)=" & Val(unox) & ") AND ((TFlujoProductivo1.fecha)=#" & CDate(dosx) & "#));"
Set Rs1 = db.OpenRecordset(psql1, dbOpenDynaset)


txtCodHda = Rs1!asecodigo
sCodHda = txtCodHda
Txt_NomHda = Rs1!asenombre

Por que no pruebas quitándole el CDate en la parte que aparece: CDate(dosx) déjalo simplemente dosx en formato mm/dd/yyyy