Visual Basic - formato de fecha

hola!
necesito hacer una consulta muy simple pero no me la trae porque no le encuentro la vuelta para que me tome el formato de fecha...
no me tira error, simplemente me dice que no existen registros...
la consulta es la siguiente...

rs.Open "Select * from Consultas " & _
"where fecconsul=" & (dtpFecConsul.Value, "DD/MM/YYYY") & " " & _
" ", dbAccess, adOpenDynamic, adLockOptimistic

la consulta la hago a travez de un recordset en Visual Basic (es por eso lo del dtpFecConsul.Value)
y la tabla esta en access, el campo tiene formato de fecha corta... (sin hora)...
tambien probe en ponerle en vez del Format el
Left(dtpFecConsul.value,10)... pero tampoco funciono.
No me da error, solo me dice que no hay registros...
Ayuda por favor!!
Mil gracias por su tiempo!
Aldo

Si la base es Access intenta de la forma:

rs.Open "Select * from Consultas " & _
"where fecconsul=#" & (dtpFecConsul.Value, "YYYY-MM-DD") & "#", dbAccess, adOpenDynamic, adLockOptimistic

prueba este ejemplo... que a mi me da buen resultado... !!

MYRS.Open "SELECT * From Valor WHERE valor.fecha >= # " & Format(DTPicker1, "mm/dd/yyyy") & "# and valor.fecha <= # " & Format(DTPicker2, "mm/dd/yyyy") & "#", cnn, adOpenDynamic, adLockPessimistic

saludos desde Cartagena, Colombia ..!!