Dim OleDbTransaction trans =nothing
Try
  conn.Open()
  trans = conn.BeginTransaction
  da.SelectCommand.Transaction=Trans
  da.Update(ds, "Artikelliste")
  trans.Comit()
  Beep()
Catch ex As Exception
  Trans.Rollback()
  MsgBox(ex.Message)
Finally
  conn.Close()
End Try

Function ImportTextToAccess() As Boolean 
  Dim AccessConn As New System.Data.OleDb.OleDbConnect­ion( _
    "Provider=Microsoft.Jet.OL­EDB.4.0;Data Source=Firma.mdb") 
  AccessConn.Open() 
 
  Dim AccessCommand As New System.Data.OleDb.OleDbCommand­("INSERT INTO" & _
    "[Artikel] (Column1, Column2, 
Column3, Column4)  SELECT F1, F2, F3, F4 FROM _
[Text;DATABASE=c:\;].[TDprod.csv]", AccessConn) 
  AccessCommand.ExecuteNonQuery(­) 
  AccessConn.Close() 
End Function