(...)
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=tabelle.mdb")
Dim cmd As New OleDbCommand(InsertRow, conn)
Dim da As New OleDbDataAdapter(cmd)
Dim ds As New DataSet()
(...)
Try
      InsertRow = "INSERT INTO Tabelle (wert1,wert2,wert3,wert4,wert5,wert6)" & _
        "VALUES
         ("wert1 & "," & wert2 & "," & wert3 & "," & wert4 & "," & wert5 & ","" & _
         "& wert6 & ")"
      DoInsertRow(InsertRow) 'Aufruf einer Prozedur zum Einfügen der Werte 
Catch ex As Exception
      MsgBox("Leider konnte die Aktion nicht ausgeführt werden." & _
                vbCrLf & "Folgender Fehler ist aufgetreten:" & vbCrLf & "'" & _
                ex.Message & "'")
End Try
(...)
Private Sub DoInsertRow(ByVal InsertRow As String)
        conn.Open()
        ZeilenWert = da.Fill(ds, "Tabelle")
        conn.Close()
        Dim dt As DataTable = ds.Tables.Item("Tabelle")
End Sub

Vom Feeling her habe ich ein gutes Gef?hl!
(A. M?ller)