por que me dice que no hay datos?...yo se que los hay

[ccca001]

rstimpcaja.Open "Select * from 02_clientes_pagos where fecha_pago>= " & DateValue(Format(Text1, "dd-mm-yyyy")) & " ", oconn1, adOpenDynamic, adLockOptimistic

esto me funciona (me dice que hay datos en la bd) , pero (siempre el "pero" no?), por lo que se, me estaria seleccionando todas las fechas superiores a Text1, pero yo solo quiero las fechas iguales a Text1... ¿que debo hacer?