Visual Basic - proble con fechas

Hola a todos!
Estoy intentando pasar un valor de una fecha a una cadena de sql.Lo que quiero hacer es lo siguiente:
fecha=Date()
Set resultSet1 = Conexion1.Execute("select * from TABLA where fec > " & fecha)
Pero me da error de sintaxis.¿Podeis ayudarme? Gracias.

para empezar... tu cadena esta mal armada porq:
Set resultSet1 = Conexion1.Execute(\"select * from TABLA where fec > # & fecha & "#"

te faltaban los simbolos de fechas(# si estas trabajando con access) o ( \' si estas trabajando con sql server)
probalo