Dim myAdapter As New MySqlDataAdapter
        Dim e1 As String
        e1 = ("Konnte keine Verbindung zum UC Server herstellen")
        Dim conn As New MySqlConnection()
        conn.Open()
        conn.ConnectionString = "Server=" & TextBox1.Text & ";" & "Database=" & TextBox2.Text & ";" & "User ID=" & TextBox3.Text & ";" & "Password=" & TextBox4.Text & ";" & "Pooling=false"
        Dim sqlquery = ("INSERT INTO `accounts` VALUES ('2', '" + TextBox1.Text + "'," + "'" + Label9.Text + "', '100', '0', '0', '0', '0', '0', '0');")
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.InsertCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()