Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim F As Integer
Dim I As Integer
 
Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
 
SQL = "SELECT * FROM Artikel"
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  F = FreeFile
  Open "Export.txt" For Output As #F
  Do Until Rs.Eof
    For i = 0 To Rs.Fields.Count - 1
      If Not IsNull(Rs(i).Value) Then Print #F, Rs(i).Value;
      If i < Rs.Fields.Count - 1 Then Print #F, ";" Else Print #F, ""
    Next i
    Rs.MoveNext
  Loop
  Close #F
End If
Rs.Close
Db.Close