Visual Basic - Ayuda SQL

Me voy a quedar sin trabajo auxilio este maldito vb6 no funciona SQL es recontra malo me dicen hacer lo siguiente.

Set tabla = datos.OpenRecordset("SELECT * " _
& "FROM pepago " _
& "where val(DATO) = '" & Val(filtrar) & "'" _
& "and datevalue(fecha) >= '" & Text18.Text & "'", dbOpenDynaset)

no filtra los datos de la operación, filtra basura y mas basura auxilioooooooooooooooooooooooooooooooooooooooooooo donde estoy cometiendo el error

Tu SQL NO ES CORRECTO:

vSQL = "SELECT * FROM pepago where val(DATO) = " & Val(filtrar) &
" and datevalue(fecha) >= " & Text18.Text

LOS DATOS NUMERICOS NO VAN ENTRE COMILLAS, Y SI COMPARAS FECHAS DEBEN IR ENTRE ##, PERO SI CONVIERTES LA FECHA EN UN NUMERO, ENTONCES NO LLEVA COMILLAS SIMPLES.