Visual Basic - auxilio en SQL (urgente)

Hola a todos los estudiosos me pueden ayudar a solucionar este problema

Set tabla = datos.OpenRecordset("SELECT * " _
& "FROM pepago " _
& "where val(DATO) = '" & Val(filtrar) & "'" _
& "and DATEVALUE(FECHA) >= '" & Format Text18.Text, "dd/mm/yyyy") & "'" _
& "and DATEVALUE(FECHA) <= '" & Format(Text19.Text, "dd/mm/yyyy") & "'", dbOpenDynaset)

no me funciona (ayudenme a decir a los diseñadores de VB que se despierten con estos errores) o donde estoy cometiendo el error para yo despertarme

No es una gran ayuda pero yo las fechas en los SQL las manejo ocn almohadillas #" & Fecha &"#

Espero que sea eso y te sirva :)

Recuerda tb q el formato de fecha debe ser el inglés.