http://kayprogramacion.blogspot.mx/2...enlazados.html
Código:
  
Private Sub Form_Load()
Call Conectar
Set rst = New ADODB.Recordset
With rst
    .CursorLocation = adUseClient
    .Open "MarcaCarros", sisdb, adOpenStatic, adLockOptimistic, adCmdTable
End With
Set cb_fabricante.RowSource = rst
cb_fabricante.ListField = "marca"
cb_fabricante.BoundColumn = "ID"
Call Desconectar
Código:
  
cb_fabricante es un datacombo y cb_modelo es otro.
Private Sub cb_fabricante_Click(Area As Integer)
If Area <> 2 Then Exit Sub
Call Conectar
MCarro = Trim(Me.cb_fabricante.BoundText)
rst.Open "select * from ModeloCarros where id_marca = '" & MCarro & "'", sisdb, adOpenStatic, adLockReadOnly
If rst.RecordCount > 0 Then
With Me.cb_modelo
Set .RowSource = rst
    .DataField = rst!modelo_carro
    .ListField = "modelo_carro"
End With
End If
Call Desconectar
End Sub
los datos los tengo en 2 tablas diferentes desde un base de datos MSSQL, la idea es que en una tabla tengo fabricantes de carros, ford, chevrolet, fiat, peugeot, etc. etc., en otra tabla tengo el id del fabricante y la descripción del modelo, llámese KA, Fiesta, Focus, etc etc.
Espero se entienda lo que quiero lograr y me puedan orientar.
Saludos.
 

