SoloCodigo

Hola a todos y gracias de antemano por las posibles respuestas de los miembros del foro.
El problema que tengo es que crie una base de datos con los siguientes campos
 Nombre de la base de datos: Hokioder
Tablas de la base de datos:
Tabla númeo uno: Nombre: Empleados la cual tiene los campos codigo de tipo entero largo y Nombre de tipo texto

Tabla número dos: Entregado la cual tiene los campos Fecha de tipo date, código de tipo entero largo y  por último Cantidad de tipo entero largo

el problema consiste en que no reconoce el filtro de la clausula select porque siempre tengo la misma respuesta, independiente del día y el código introducido y esta es la respuesta:  MsgBox " El trabajador no tiene cantidades recibidas en ésta fecha"
Observación: Estoy usando un grid1 para mostrar los datos y tengo un text.text denominado Taxiz

Dim Limpiarme As Database
Set Limpiarme = OpenDatabase("C:\Archivos de programa\Microsoft Visual Basic\Hokioder")



ap1c2 = "Agregue el código del trabajador."
ap1c3 = "                     MOVIMIENTO  DIARIO "
Halar$ = InputBox(ap1c2, ap1c3, , 2300, 4000)



venez = Format(Date, "dd/mm/yyyy")

Taxiz.Text = CDate(venez)


If Ensegui = "Select * from Entregado where Fecha = '" & Taxiz.Text & "' and codigo =" + Halar$ Then


          goto Leon        

Else

MsgBox " El trabajador no tiene cantidades recibidas en ésta fecha"


Exit Sub

End If



Leon:

' Otras sentencias