cargar datacombo a través de otro datacombo

[black_devil]

Gracias a ambos, ya resolví el problema, usando ADO y este código:

Código:

Private Sub dtmarca_Click(Area As Integer)
dtmodelo.Text = Update
txtstock.Text = Update
Set rs = New Recordset

rs.Open "SELECT marca, modelo FROM ING_STOCK_NEUMATICO WHERE marca = '" & dtmarca.Text & "'", cn, adOpenStatic, adLockOptimistic

Set dtmodelo.RowSource = rs
dtmodelo.ListField = "modelo"
dtmodelo.BoundColumn = "marca"
Set rs = Nothing
End Sub