Visual Basic - Combos con SQL

Hola amigos del foro…
Les puedo solicitar su ayuda? bueno les cuento
Tengo 2 tablas en las cuales estoy guardando datos., el problema que tengo es que necesito llenar dos combos con datos diferentes el primer combo con la tabla1 y el combo2 con datos de la tabla2 ahora he conseguido llenar el primer combo1 con datos de la tabla1 mediante este código:
****************************CODIGO LLENA combo1***********************
Private Sub Form_Load()
sql = ""
sql = sql + " select * from marcas"
Set vista = db.CreateDynaset(sql)
Do Until vista.EOF
On Error Resume Next
Combo4.AddItem (vista.Fields(0))
Combo5.AddItem (vista.Fields(2))
vista.MoveNext
Loop
End Sub

LA PREGUNTA ES:
COMO LLENO EL COMBO2 DESDE LA TABLA2 LO TENGO QUE HACER EN EL EVENTO FORM_LOAD DEL FORMULARIO? O DIRECTAMENTE DEL COMBO2 COMO POR EJEMPLO ASI!

EJEMPLO
Private Sub Combo1_Click()
COMBO2 = “select * from tabla2”
Set vista=db.createdynaset(sql)
Do Until vista.EOF
On Error Resume Next
Combo4.AddItem (vista.Fields(0))
Combo5.AddItem (vista.Fields(2))
vista.MoveNext
loop
End Sub

Espero me puedan ayudar amigos...

Salu2. y que esten bien atte….

Vbmc_2004

es mas facil si lo haces con adocd, mucho mas facil.

Agregas el componente(proyecto-componentes y en la lista selecciona microsoft ADo control) pa los adodc, haces dos adodc nuevos y en el conection string le pones dnd esta la base de datos.
en el record source le pones la select que quieres q realize.

Luego creas dos DATAcombo y en las propiedad recordsource pones adodc1, y en listfield en campo ke kieres ke te salga en el data combo.
no hace falta decir, que el datacombo q kieres rellenar con la primera tabla le pones el adodc ke as conectado la primera tabla, y con el segundo lo mismo.

Asi ya tendras rellenados los combos cuando ejecutes el programa.

para cada tabla tendras q crear un adodc.
Si tienes dudas pregunta