problema...

[andresnovat]

Buenas tardes...
Estoy haciendo un programa en visual Basic 6 y esta conectado a una base de datos de FoxPro 9 y necesito bailar si existe o no dicho empleado, pero tengo un problema q no me reconoce el campo de fecha q esta en formato Date
enseguida les muestro la conexión y la parte del select donde no me carga nada.

Set oconn2 = New ADODB.Connection
oconn2.Open "Driver=Microsoft Visual FoxPro Driver; " + _
"SourceType=DBc;SourceDB=C:\fixsystech2\datos1 .dbc ;BackgroundFetch=No;"


Set rs2 = oconn2.Execute("select id_empleado from Actividad_program where fecha = #" & fecha1 & "# and id_empleado = '" & numero & "'")

If rs2.EOF = True Then
MsgBox ("Error el empleado no tiene parametrizada una actividad para el dia de hoy, debe ser parametrizada")
Textid.Text = ""
cmdentrada.Enabled = False
cmdsalida.Enabled = False
Else

en la tabla en el campo de fecha me aperase asi 04/16/13

pero en el programa al comparar las fechas lo muestra asi 04/16/2013

no se si x esto sera el error... e intentado de varias maneras modificando la fecha y no e podido

les agradezco si me pueden colaborar gracias...