Private Sub btnSpeichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnSpeichern.Click
        ' Daten speichern
 
Dim objConnection As OleDb.OleDbConnection = _
           New OleDb.OleDbConnection _
           ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
           "Data Source=" & mdbDatei & "feldtech.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
 
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
 
        Dim Abfrage As String = "SELECT * FROM t_Dateien"
        objDataAdapter = New OleDb.OleDbDataAdapter _
           (Abfrage, objConnection)
        objDataAdapter.Fill(objDataSet, "t_Dateien")
        objDataView = _
           New DataView(objDataSet.Tables("t_Dateien"))
 
        Dim objZeile As DataRow
        objZeile = objDataSet.Tables("t_Dateien").NewRow()
        With objZeile
            .Item("Name") = tbx_beschreibung.Text
            .Item("von") = lblPfad.Text
            .Item("nach") = tbxZielPfad.Text
            .Item("Bemerkung") = rtbBemerkung.Text
            .Item("Kategorie") = cbo_kategorie.SelectedItem
            If rbAlle.Checked = True Then
                .Item("Art") = "all"
            ElseIf rbEndung.Checked = True Then
                .Item("Art") = "art"
            Else
                .Item("Art") = "one"
            End If
        End With
 
        Dim _oledbcmd As OleDb.OleDbCommandBuilder = New _
          OleDb.OleDbCommandBuilder(objDataAdapter)
 
        objDataAdapter.InsertCommand = _oledbcmd.GetInsertCommand
        '#
        objDataSet.Tables("t_Dateien").Rows.Add(objZeile)
        '#
        objDataAdapter.Update(objDataSet, "t_Dateien") ' ### HIER IST DER 
        ' FEHLER ###
        objDataSet.Tables("t_dateien").AcceptChanges()