Private Sub DGVSummeSpeichern()
        'DB Verbindung
        Try
            con.ConnectionString = "Data" & _
              "Source=|DataDirectory|\MyTabelle.sdf;Password=S4LmT8x6mA"
            cmd.Connection = con
            'Fügt einen Datensatz ein 
 
            'hinter dem Komma richtig übernommen werden
            cmd.CommandText = "insert into SHG where (" & _
              "[SEinnahme],[SAusgabe],[Differenz] ) values ('" & dgvsumme.Rows( _
              0).Cells(1).Value  &
                "' ,'" & dgvsumme.Rows(0).Cells(3).Value & "','" & _
                dgvsumme.Rows(0).Cells(4).Value & "');"
            con.Open()
        Catch ex As ApplicationException
            MessageBox.Show(ex.Message, MessageBoxButtons.OK, _
              MessageBoxIcon.Information)
        Catch ex As InvalidCastException
            MessageBox.Show(ex.Message & vbCrLf & "Die Zahlenfelder müßen einen" & _
              "Nummerwert aufweisen können", MessageBoxButtons.OK, _
              MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message, MessageBoxButtons.OK, _
              MessageBoxIcon.Information)
        End Try
        con.Close()
    End Sub