Cita:
Iniciado por 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
de nada, pero la proxima procurá colocarle un titulo correcto a tu post.
nos vemos..