Dim sqlConn As MySqlConnection
    sqlConn = New MySqlConnection( _
    "Data Source=localhost; Initial Catalog=aaaaaaa; User ID=root;PWD=xxxxxxxx")
    sqlConn.Open()
 
    Dim strSQl As String = _
            "USE aaaaaaa" & _
            "DROP TABLE [IF EXISTS] Tabelle1" & _
            "CREATE TABLE [IF NOT EXISTS] Tabelle1 (" & _
            "Datum date, " & _
            "Z1 TINYINT, " & _
            "Z2 TINYINT, " & _
            "Z3 TINYINT, " & _
            "Z4 TINYINT, " & _
            "Z5 TINYINT, " & _
            "Z6 TINYINT, " & _
            "Z7 TINYINT, " & _
            "Z8 TINYINT, " & _
            "ID INT NOT NULL AUTO_INCREMENT, " & _
            "PRIMARY KEY (ID), " & _
            "Hit VARCHAR(7), " & _
            "ENGINE = MyISAM, " & _
            "DEFAULT CHARSET = latin1, " & _
            "COLLATE = latin1_german1_ci" & ")"
    Try
      Dim com As New MySqlCommand(strSQl)
       com.ExecuteNonQuery()
 
      MessageBox.Show("Tabelle 'Tabelle1' erfolgreich erstellt", _
      "Table Creation Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    Catch sqlExc As SqlException
      MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
      MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    sqlConn.Close()