Visual Basic - filtrar fecha con Visual Basic y SQL

Necesito filtrar los datos por fecha con Visual Basic y SQL Server 2000 el problema es que llevo la consulta que funciona bien en sql a Visual Basic y al intentar hacerla dinamica con una variable no me da resultado. Mi problema evidentemente es como pregunto usando la variable.
txt = "select importe from caja WHERE Fecobro = " & fechadehoy & ""
nuevo.Open txt, cn, adOpenKeyset
If nuevo.RecordCount > 0 Then
El recordcount me da siempre 0. y si pusiera
txt = "select sum(importe) as total from caja WHERE Fecobro = " & fechadehoy & ""
nuevo.Open txt, cn, adOpenDynamic, adLockOptimistic
If nuevo!Total > 0 Then
MsgBox nuevo!Total
Else

me da NULO entonces como es por favor. Gracias.

Hola Romanzo:
Creo que se te ha olvidado poner comilla simple antes de la variable fechadehoy, deberia ser asi:

txt = "select importe from caja WHERE Fecobro = '" & fechadehoy & "'"
nuevo.Open txt, cn, adOpenKeyset

Espero que te valga

Saludos
Ana

Gracias Ana por tu respuesta pero lamentablemente no funciona. Solo si cambio el campo de datetime a char.

y si formateas la fecha osea
txt = "select importe from caja WHERE Fecobro = " & format(fechadehoy,"mm,dd,yyyy") & ""
xq sql reconoce las fechas en formato americano no mm.dd.yyyy
fijate

Bueno antes que nada gracias fede por responder. Considerando tu respuesta comenze a probar los diferentes formatos de fecha y el que me tomo es mm-dd-yyyy. Increible no!!. Bueno espero que este mal rato pasado le sirva a otros. Al final esto quedo asi
txt = "select getdate() as fecha"
temp.Open txt, cn, adOpenKeyset
hoy = Format$(temp!fecha, "mm/dd/yyyy")
temp.Close

txt = "select importe from caja WHERE fecobro = '" & hoy & "' "
nuevo.Open txt, cn, adOpenStatic, adLockReadOnly
Saludos y gracias de nuevo.