Visual Basic - Format Hora

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

primero sino definiste las var definilas osea
dim var_fecha1 ,var_fecha2 as date

cons = "SELECT * FROM Accidentes WHERE Accidentes.f_Acc = #" & var_fecha1 & "# and Accidentes.hora_Acc = #" & var_fecha2 & "#"
asi tiene q andar loco o fijate que coincida el tipo de dato de Accidentes.hora_Acc y el tipo de vbShortTime

no te conformas con las respuestas que te dieron anteriormente (y ni siquiera contestaste) para abrir un nuevo post con lo mismo?

la cuestion no es que estes preguntando mal (que lo estas haciendo) sino que te repites mas que el ajo