Código:
Dim Tabla As New DataTable Dim conexion As MySqlConnection Dim Ds As New DataSet conexion = New MySql.Data.MySqlClient.MySqlConnection conexion.ConnectionString = "server=localhost;user=root; password=Octubre4;database=ati;port=3306;" conexion.Open() Dim insertar As New MySqlDataAdapter("SELECT NOMBRE,CLAVE FROM COMISIONES ORDER BY NOMBRE", conexion) Dim Cmd As New MySqlCommandBuilder(insertar) Try insertar.Fill(Tabla) Catch mierror As MySqlException MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message) Finally End Try Me.DataGridView1.DataSource = Tabla