Hola a todos,
Soy nuevo por acá y agradezco el apoyo que me puedan brindar con el siguiente problema.
Tengo un combobox y lo lleno con el campo código (hasta aqui funciona perfecto), luego quiero que al seleccionar el código se despliegue el campo Modelo del registro seleccionado. Pero sale "error 424 se requiere un objeto" y se resalta la línea==> Rs.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)

A continuación las líneas que he desarrollado, por anticipado, Gracias, Mil Gracias.

Private Sub Combo1_Click()
Rs.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
Text1 = Rs!Modelo
End Sub

Private Sub Form_Load()
Dim Rs As ADODB.Recordset
Set bd = New Connection
bd.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Cecilia\Desktop\Sistema Control de Inventario Chipilines\Inventario.mdb;Persist Security Info=False"
bd.Open
Set Rs = New Recordset
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockOptimistic
Rs.Open "select * from InventarioActual", bd
Rs.MoveFirst
While Rs.EOF = False
Combo1.AddItem Rs!Codigo
Combo1.ItemData(Combo1.NewIndex) = Rs.AbsolutePosition
Rs.MoveNext
Wend
Rs.Close
End Sub