Dim CNString As String
                CNString = "Database=" & DB & ";Data Source=" & IP & ";User" & _
                  "Id=" & User & ";Password=" & PWD & ""
 
                Dim cn As New MySqlConnection(CNString)
                Dim adapter As New MySqlDataAdapter(SQLStatement, CNString)
 
                Dim command As MySqlCommand = _
                New MySqlCommand("select object_name as name from object_data", _
                cn)
                cn.Open()
 
                Dim SchemaTable As New DataTable
                Dim myReader As MySqlDataReader
                myReader = command.ExecuteReader
                SchemaTable = myReader.GetSchemaTable
 
                adapter.Fill(DataTable)
 
                Dim dr As DataRow
                For Each dr In SchemaTable.Rows
                    Console.WriteLine("x:" & dr("BaseColumnName"))
                    Console.WriteLine("x:" & dr("ColumnName"))
                Next