If Me.Text = "Lohn zahlen" Then

                myCommand.Parameters.AddWithValue("?Monat", Monat.ToString)
                myCommand.Parameters.AddWithValue("?Jahr", Now.Year.ToString)
                myCommand.Parameters.AddWithValue("?Nickname", My.Settings.NicknameText.ToString)
                myCommand.Parameters.AddWithValue("?Verwendung", "Lohn für " + cbNickname.Text)
                myCommand.Parameters.AddWithValue("?Haben", "0")
                myCommand.Parameters.AddWithValue("?Soll", "-" + txtBetrag.Text.ToString)
                myCommand.Parameters.AddWithValue("?Screen", txtScreen.Text.ToString)
            Else
                myCommand.Parameters.AddWithValue("?Monat", Monat.ToString)
                myCommand.Parameters.AddWithValue("?Jahr", Now.Year.ToString)
                myCommand.Parameters.AddWithValue("?Nickname", My.Settings.NicknameText.ToString)
                myCommand.Parameters.AddWithValue("?Verwendung", "Lohn von Regierung erhalten" + cbNickname.Text)
                myCommand.Parameters.AddWithValue("?Haben", txtBetrag.Text.ToString)
                myCommand.Parameters.AddWithValue("?Soll", "0")
                myCommand.Parameters.AddWithValue("?Screen", txtScreen.Text.ToString)
            End If

            myAdapter.SelectCommand = myCommand
            myAdapter.Fill(myData)
            conn.Close()

            If Me.Text = "Lohn zahlen" Then
                myData.Reset()
                vSql = "INSERT INTO tbl_Lohn (Tag, Monat, Jahr, Nickname, Verwendung, Haben, Soll, Screen) VALUES " & _
                                                "(?Tag, ?Monat, ?Jahr, ?Nickname, ?Verwendung, ?Haben, ?Soll, ?Screen)"
                conn.Open()
                myCommand.Connection = conn
                myCommand.CommandText = vSql

                'Parameter für das Speichern
                myCommand.Parameters.Clear()
                myCommand.Parameters.AddWithValue("?Tag", Now.Day.ToString)
                myCommand.Parameters.AddWithValue("?Monat", Monat.ToString)
                myCommand.Parameters.AddWithValue("?Jahr", Now.Year.ToString)
                myCommand.Parameters.AddWithValue("?Nickname", My.Settings.NicknameText.ToString)
                myCommand.Parameters.AddWithValue("?Verwendung", "Überweisungskosten")
                myCommand.Parameters.AddWithValue("?Haben", "0")
                Überweisung = ((Val(txtBetrag.Text.ToString) / 100) * 2)
                MessageBox.Show(Überweisung.ToString)
                myCommand.Parameters.AddWithValue("?Soll", "-" + Überweisung.ToString)
                myCommand.Parameters.AddWithValue("?Screen", "siehe eins drüber")
                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)
                conn.Close()
            End If