Hola,
Prueba añadiendo lo que te pongo en rojo, a ver qué tal
Código:
Dim Inicio As String, Fin 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
Necesitarás una variable o campo de form donde recojas el código.
Saludos