Visual Basic - Problema con Consulta en VB6...

Primero que todo gracias por leer la nota. Estoy trabajando en VB6. El problemilla es que la consulta es my poco precisa. Este es el código:

Dim SQL As Recordset
Dim DB As Database
Dim CadenaSQL As String
CadenaSQL = "Select ficha, fecha
from tblTrabajos
where ficha = '" & TxtFicha.Text & "' and fecha > #" & Trim$(Text1.Text) & "# ;"

Set DB = OpenDatabase("c:\consulta.mdb")
Set SQL = DB.OpenRecordset(CadenaSQL)

If SQL.RecordCount = 0 Then
MsgBox "No se encontraron registros", vbInformation, "Error"
Exit Sub
End If
Es muy poco presisa al seleccionar por la fecha. la base de datos es ACCESS y el campo es de tipo fecha corta.

Agradecería cualquier ayuda.

Yo creo que tienes el problema debido a que en access realmente la fecha se guarda en formato mm/dd/yy. prueba con
' and fecha > #" & format(Trim$(Text1.Text),"mm>/dd/yy") & "# ;"
Esto debe funcionar.
Saludos
Fran