Friend Sub DatensatzSpeichern(ByVal DatenSatz As System.Data.DataRow)
        Dim DatenAdapter As SqlCeDataAdapter
        Dim SQLcmdB As SqlCeCommandBuilder
        Dim SQL_AbfrageString As String = ""
        Dim RowsArray As New List(Of System.Data.DataRow)
 
        Select Case DatenSatz.Table.TableName
            Case "MDEsysOptionen"
                If DatenSatz.RowState = Data.DataRowState.Modified Then
                    DatenSatz.AcceptChanges()
                    SQL_AbfrageString = "SELECT * FROM MDEsysOptionen WHERE" & _
                      "opt_OptionID = '" & DatenSatz.Item("opt_OptionID") & "'"
                Else
                    Exit Sub
                End If
        End Select
 
        RowsArray.Add(DatenSatz)
 
        DatenAdapter = New SqlCeDataAdapter(SQL_AbfrageString, _
          GlobaleDaten.var_Datenbank.DatenbankVerbindung)
        SQLcmdB = New SqlCeCommandBuilder(DatenAdapter)
 
        Using DatenAdapter
            DatenAdapter.Update(RowsArray.ToArray)
        End Using
 
    End Sub