Dim sql As String
Dim cn as MySqlConnection
Dim cm As MySqlCommand
Dim da As MySqlDataAdapter
Dim ds as DataSet
cn = new MySqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave; Allow Zero Datetime=True; CHARSET=latin1")
cn.open()
sql = "SELECT valor1,valor2 FROM tabla_que_corresponda"
cm = New MySqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
da = New MySqlDataAdapter(cm)
ds= New DataSet()
da.Fill(ds)
cmbSeccion.DataSource = ds.Tables(0)
cmbSeccion.DisplayMember = "valor1"
cmbSeccion.ValueMember = "valor2"