Como Cargar Un Combobox Desde Una Tabla Sql

[gerardo_goh]

Hola Amigo te dejo un ejemplo de cargar datos de una base de datos, mi bd esta creada en Mysql, Nada más adaptala a tus necesidades:

Código vb:

'=========================================================
'Asignacion de variables de conexion a la base de datos  =
'=========================================================
 
Public rs_tblestado As ADODB.Recordset
 
Sub datos_tblestado()
  Set rs_tblestado = New ADODB.Recordset
  On Error Resume Next
  With rs_tblestado
      .ActiveConnection = con
      .CursorLocation = adUseClient
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
      .Open "SELECT idestado,nom_estado FROM tblestado"
  End With
End Sub
 
Private Sub Form_Load()
    Dim siguiente As Integer
    conectar
    datos_tblestado
 
    
    Set dgEstado.DataSource = rs_tblestado
    Set dgLiga.DataSource = rs_tblliga
    '--------------------------------------------------------
    With rs_tblestado
         Do Until .EOF
    ' suponemos que la columna a cargar es la primera
            cboEstado.AddItem .Fields(1)
            .MoveNext
         Loop
    End With
        
End Sub
 
'Esto es en un modulo
'Variables globales
Public con As Connection
 
Public Sub conectar()
  Set con = New ADODB.Connection
  con.ConnectionString = "driver={MySQL ODBC 5.1 Driver};server=localhost;uid=root;pwd=****;database=***;connection=3306"
  con.Open
End Sub
 

Saludos!!!