Hola, tengo una duda

[Swat-10]

Gracias a los que respondieron, ya lo habia resuelto de la siguiente manera:

Dim rs As adodb.Recordset
Set rs = New adodb.Recordset

rs.Open "Select Marca from Inventario where tipo ='" & Combo1.Text & "'", Conexion, adOpenForwardOnly, adLockOptimistic

Combo2.Clear

While Not rs.EOF

Combo2.AddItem rs(0)

rs.MoveNext

Wend

rs.Close

Set rs = Nothing

geoavila igual la forma en que lo sugieres esta excelemte gracias

Swat