Ayudenme son esta consulta por favor

[proactivo]

tengo una tabla llamada gastos la cual contiene los siguientes datos fecha, numero de factura, orden de factura, proveedor, cantidad, descripcion y codigo este ultimo que tiene 8 datos lo cales son alma, ved, mtt y otros

logre hacer una consulta por fecha y me salio bien pero ahora necesito una mediante la fecha y codigo es decir del tal a tal fecha y seleccionar el codigo y me lo muestre en el reporte hasta ahora solo tengo esta codificacion que me fal ta

Private Sub Report_Open(Cancel As Integer)

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 & "#"
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


esto seria el de las fechas por rango pero como enlazo eso con los codigos por favor ayudaaaaaaaaaaaaaaaa