CREATE USER 'albert'@'localhost';

        Try
            con.Open()
            cmd.CommandText = "CREATE USER 'albert'@'localhost';"
            MessageBox.Show("Benutzer wurde erfolgreich angelegt.")
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
        Try
            con.Open()
            cmd.CommandText = "FLUSH PRIVILEGES"
            MessageBox.Show("Benutertabellen wurden aktualisiert.")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try