Dim CommandEinfuegen As String = "INSERT INTO t_Dateien (Name," & _
              "Kategorie, von, Datum von, nach, Datum nach, Größe, Bemerkung," & _
              "Merker,Art) VALUES ('" & Name & "', '" & Kategorie & "', '" & _
              von & "', '" & Datum_von & "', '" & nach & "', '" & Datum_nach & _
              "', '" & größe & "', '" & Bemerkung & "', '" & Merker & "', '" & _
              art & "' )"
 
            Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
              "Source=" & mdbDatei & "testdb.mdb"
            Dim connection As OleDb.OleDbConnection = _
                New OleDb.OleDbConnection(conString)
            Dim command As OleDb.OleDbCommand = _
                New OleDb.OleDbCommand(CommandEinfuegen, connection)
            command.Connection.Open()
            command.ExecuteNonQuery()
            command.Connection.Close()