prova ad adattare questa routine
codice:
Imports o = MySql.Data.MySqlClient
'-------------------------------------------------------------------------------------
'Restituisce un oggetto DataTable o lancia eccezione in caso di errore
'parametri: connessione, stringa sql
'-------------------------------------------------------------------------------------
Public Function GetDataTable(ByVal Connessione As o.MySqlConnection, ByVal stringaSQL As String) As DataTable
Try
'creo un nuovo DataAdapter
Dim DataAdapter As New o.MySqlDataAdapter(stringaSQL, Connessione)
'creo un DataSet e lo riempio con i dati
Dim DataSet As New DataSet
'DataAdapter.FillSchema(DataSet, SchemaType.Source)
DataAdapter.Fill(DataSet, "sql")
Return DataSet.Tables("sql")
Catch Errore As Exception
Throw
End Try
End Function