Combo Box en Visual Basic

[aldo1982]

Private Sub Form_Load()
'ACA CARGAMOS LAS MARCAS DE IMPRESORAS^^

Combo1.Clear
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * from TUTABLA "
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF
Combo1.AddItem rs!MARCA_IMPRESORA

rs.MoveNext
Loop
rs.Close
'Cierra la conexion a la base de datos
dbconn.Close
Combo1.ListIndex = 0
End Sub
'================================
'AHORA EN EL EVENTO CLICK DELCOMBO1 CARGAMOS EN EL COMBO2 LOS MODELOS DE LAS IMPRESORAS

Private Sub COMBO1_Click()
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select DISTINCT MODELOS_IMPRESORAS from TU_TABLA WHERE MARCA_IMPRESORA LIKE '"& COMBO1 &"' "
Set rs = dbconn.Execute(SQL, , adCmdText)
Do While Not rs.EOF
COMBO2.ADDITEM RS!MODELOS_IMPRESORAS
rs.MoveNext
Loop
rs.Close
'Cierra la conexion a la base de datos
dbconn.Close
End Sub
'====================
BUE ESPERO KE SEA ESO LO KE KERIAS, SALU2 Y BUE NO ME ACORDAVA BIEN LOS NOMBRES DE LAS TABLAS Y DE LOS CAMPOS, PERO CREO KE ESTA VASTANTE BIEN EL EJEMPLO JEJEJE
SALU2 Y GRACIAS A ESTE FORO ^^