Dim mdbDatei As String = IniReadString("DB", "DateiPfad", "", "255", inidatei) _
  ' Pfad zur Access Datei
 
    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) ' Muß ich erst eine Abfrage starten ??? 
        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
        objDataSet.Tables("t_Dateien").Rows.Add(objZeile)
        objDataAdapter.Update(objDataSet, "t_Dateien") ' ### FEHLER ###
        objDataSet.Tables("t_Dateien").AcceptChanges()
        objConnection.Close()
        objDataSet = Nothing
        Me.Close()