Dim F As Integer
Dim sLine As String
Dim sData() As String
Dim oDB As Database
Dim oRs As Recordset
 
' File öffnen
F = FreeFile
Open "Datei" For Input As #F
 
' Datenbank öffnen
Set oDB = DAO.OpenDatabase("Datenbank.mdn")
Set oRs = oDB.OpenRecordset("Tabelle")
 
' File zeilenweise auslesen und in DB übertragen
While Not Eof(F)
  Line Input #F, sLine
  sData=Split(sLine, ";")
  oRs.AddNew
  oRs("Spalte1") = sData(0)
  oRs("Spalte2") = Replace(oData(1), Chr$(34, "")
  oRs("Spalte3") = Replace(oData(2), Chr$(34, "")
  oRs.Update
Wend
 
' alle Dateien schließen
Close #F
oRs.Close
oDB.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de