Friend Sub DatensatzSpeichern(ByVal Daten As DataTable)
	Dim SQL_AbfrageString As String = string.Format("SELECT * FROM" & _
  "[{0}]",Daten.TableName)
 
	Using DatenAdapter as New SqlCeDataAdapter(SQL_AbfrageString, _
  GlobaleDaten.Datenbank.ConnectionString)
		Dim SQLcmdB As New SqlCeCommandBuilder(DatenAdapter)
 
		DatenAdapter.Update(Daten)
	End Using
 
End Sub