Visual Basic - Formato Hora

Hola a todos, soy yo nuevamente.... estoy en un quilombo, por que debo hacer una consulta a una base de datos access y trabajo con DAO...........

Debo consultar a una tabla en la cual, por calve principal, debe coincidir fecha y hora,

El buscar por fecha no es problema dado que le doy un formato mantes de la busqueda ejemplo var_fecha1 = Format(fecha, "MM/DD/YY") .. pero con la hora tengo el problema por que intente darle el formato similar al anterior y me salta un error en tiempo de ejecución.......... yo estoy escribiendo lo siguiente

var_fecha1 = Format(fecha, "MM/DD/YY")
var_fecha2 = Format(hora, "HH:MM")
cons = "SELECT * FROM Accidentes WHERE Accidentes.f_Acc = #" & var_fecha1 & "#" & _
"AND Accidentes.hora_Acc = #" & var_fecha2& "#"
Set rs = bd.OpenRecordset(cons, dbOpenSnapshot)

Si alguien sabe como diablos hacerlo bien se los voy a agradecerrrrrr

Y si lo haces asi:

var_fecha2 = FormatDateTime(hora,vbShortTime)

lo intente pero textualmente me tira el error

Error "3075" en Tiempo de Ejecución
Error de sintaxis en la Fecha en la expreción de consulta
'Accidentes.f_Acc=#02/02/02#AND Accidentes.hora_Acc=#02:02:00a.m#'

estare preguntando mal??

el lselect es asi

var_fecha1 = Format(fecha, "MM/DD/YY")
var_fecha2 = FormatDateTime(hora, vbShortTime)
cons = "SELECT * FROM Accidentes WHERE Accidentes.f_Acc = #" & var_fecha1 & "#" & _
"AND Accidentes.hora_Acc = #" & var_fecha2 & "#"
Set rs = bd.OpenRecordset(cons, dbOpenSnapshot)
With rs

Que raro?, aunque como es Access puede ser que este mal en tu BD, osea el formato de entrada puede que sea EXTENSO cuando tu le estas mandando FECHA CORTA.

Revisa eso, y adecua la hora al campo de access.

Hola:
Si estas escribiendo tu codigo tal como aparace asi como veo, te podria decir que el error es por que no dejas espacio entre el primer # y el AND, "02#AND ", intenta dejarle un espacio, ahora si no es eso, mandame un correo y lo checamos mas a fondo.

Saludos !