Dim MySQL_Connection As New Odbc.OdbcConnection()
        Dim MySQL_Command As New Odbc.OdbcCommand()
        Dim MYSQL_Result As Odbc.OdbcDataReader
 
        MySQL_Connection.ConnectionString = "DSN=Der Name deiner" & _
          "ODBC-Verbindung"
        MySQL_Connection.Open()
 
        MySQL_Command.Connection = MySQL_Connection
        MySQL_Command.CommandType = CommandType.Text
 
        MySQL_Command.CommandText = "SHOW TABLES"
        MYSQL_Result = MySQL_Command.ExecuteReader()
 
        MsgBox((MYSQL_Result.FieldCount + 1).ToString)