tengo este codigo en un modulo:

Public Sub codigo()
Dim a As TextBox
Dim b As TextBox
Dim c As ComboBox
Ssql = "select * from ingredientes1"
Rcs.Open Ssql, Cnn
Do While Not Rcs.EOF
If c.Text = Rcs!descripcion Then
a.Text = Rcs!unidad
b.Text = Rcs!pu
End If
Rcs.MoveNext
Loop
Rcs.Close
End Sub

y este codigo en un combo1:

Private Sub Combo1_LostFocus()
Dim a As TextBox
Dim b As TextBox
Dim c As ComboBox
a = Text2.Text
b = Text3.Text
c = Combo1.Text
codigo
end
pero al correrlo me sale un error, no corre
hago esto para no repetir el codigo en 10 combos que tengo, hay alguna manera? en que estoy fallando? de antemano gracias por su ayuda

perdon ke es lo que kieres hacer,  parece que realizar una consulta u la guardas en cajas de texto pero como para ke???

Saludos, yo opino que, mas que saber que es lo que quiere lograr, que nos diga que error le lanza la aplicacion. ;-)