Visual Basic.NET - Mostrar Tablas de SQL en ComboBox

Hola, como puedo mostrar las tablas de una base de datos MySql o SQL en un combobox?.

Hola Aleta:
Con SQL, lo que tienes que hacer es un leerte la tabla y despues mostrar los registros. Ejemplo:
Tenemos una tabla de nombre Prueba, con los campos nombre y apellidos

Para leerla, primero nos conectamos a la base de datos y despues leemos:
rs.open ("Select nombre from Prueba", cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

Y por ultimo, nos recorremos todos los registros:
Do Until rs.EOF
ComboBox.Items.Add(rs("nombre").Value)
rs.MoveNext()
Loop

Espero que te valga

Saludos
Ana

Public Class Form1
Inherits System.Windows.Forms.Form

Dim conn As MySqlConnection
Dim data As DataTable
Dim da As MySqlDataAdapter
Dim cb As MySqlCommandBuilder

Private Sub connectBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connectBtn.Click
If Not conn Is Nothing Then conn.Close()

Dim connStr As String
connStr = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", _
server.Text, userid.Text, password.Text )

Try
conn = New MySqlConnection(connStr)
conn.Open()

GetDatabases()
Catch ex As MySqlException
MessageBox.Show("Error connecting to the server: " + ex.Message)
End Try
End Sub

Private Sub GetDatabases()
Dim reader As MySqlDataReader
reader = Nothing

Dim cmd As New MySqlCommand("SHOW DATABASES", conn)
Try
reader = cmd.ExecuteReader()
databaseList.Items.Clear()

While (reader.Read())
databaseList.Items.Add(reader.GetString(0))
End While
Catch ex As MySqlException
MessageBox.Show("Failed to populate database list: " + ex.Message)
Finally
If Not reader Is Nothing Then reader.Close()
End Try

End Sub

Private Sub databaseList_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles databaseList.SelectedIndexChanged
Dim reader As MySqlDataReader

conn.ChangeDatabase(databaseList.SelectedItem.ToString())

Dim cmd As New MySqlCommand("SHOW TABLES", conn)

Try
reader = cmd.ExecuteReader()
tables.Items.Clear()

While (reader.Read())
tables.Items.Add(reader.GetString(0))
End While

Catch ex As MySqlException
MessageBox.Show("Failed to populate table list: " + ex.Message)
Finally
If Not reader Is Nothing Then reader.Close()
End Try
End Sub

Private Sub tables_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles tables.SelectedIndexChanged
data = New DataTable

da = New MySqlDataAdapter("SELECT * FROM " + tables.SelectedItem.ToString(), conn)
cb = New MySqlCommandBuilder(da)

da.Fill(data)

dataGrid.DataSource = data
End Sub

Private Sub updateBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles updateBtn.Click
Dim changes As DataTable = data.GetChanges()
da.Update(changes)
data.AcceptChanges()
End Sub

End Class

//Este ejemplo esta en el conector de mysql.