Ayudenme son esta consulta por favor

[proactivo]

bueno cambie el combo por un cuadro de texto llamado codigo tambien y si tengo todo eso que me escribiste la tabla todo eso.

esto es lo que estoy ingresando ya no me sale ningun error pero no me salen los datos sale el informe en blanco


Private Sub Report_Open(Cancel As Integer)

Dim Inicio As String, Fin As String, Codigo As String
Forms.Item("detalle").Inicio.SetFocus
Inicio = Format(Forms.Item("detalle").Inicio.Text, "mm/dd/yyyy")
Forms.Item("detalle").Fin.SetFocus
Fin = Format(Forms.Item("detalle").Fin.Text, "mm/dd/yyyy")
Me.RecordSource = "Select * From gastos Where fecha between #" & Inicio & "# AND #" & Fin & "# AND Codigo like '" & Codigo & "'"

Forms.Item("detalle").Inicio.SetFocus
Me.control.Caption = "Entre " & Forms.Item("detalle").Inicio.Text & " y "
Forms.Item("detalle").Fin.SetFocus
Me.control.Caption = Me.control.Caption & Forms.Item("detalle").Fin.Text








End Sub