Dim Db As DAO.Database
Dim RS As DAO.Recordset
Set Db = OpenDatabase(App.Path & "\Datev.mdb")
Set RS = Db.OpenRecordset("Datev1Einzeln")
 
'Dim sLine As String
'Dim i As Integer
'Dim sData() As String
 
Dim F As Integer
 
F = FreeFile
Open OutPVal & "\DATEVOut.txt" For Output As #F
Print #F, _
  "ADR_ANGEZEIGTER_NAME,ADR_NACHNAME,ADR_VORNAME,ADR_PLZ,ADR_ORT,ADR_STRASSE,A" & _
  "R_KOMMENTAR,ADR_TEL_PRIVAT,ADR_TEL_GESCHAEFTLICH,ADR_2_FAX,ADR_FAX,ADR_TEL_" & _
  "OBIL,ADR_EMAIL,ADR_WEB_SITE]"
 
RS.MoveFirst
Do While Not RS.EOF
    'Feldüberschriften festlegen
    Print #F, RS.Fields("Adressatenbezeichnung").Value & ";" & RS.Fields( _
      "Adressat_Name").Value & ";" & RS.Fields("Adressat_Vorname").Value & ";" _
      & RS.Fields("PLZ_Inland").Value & ";" & RS.Fields("Ort").Value & ";" _
              & RS.Fields("StraßePostfach").Value & ";" & RS.Fields( _
              "Bemerkung").Value & ";" & RS.Fields("PRIV_Telefon").Value & ";" _
              & RS.Fields("GES_Telefon").Value & ";" & RS.Fields( _
              "PRIV_Telefax").Value & ";" _
              & RS.Fields("GES_Telefax").Value & ";" & RS.Fields( _
              "Mobiltelefon").Value & ";" & RS.Fields("Internet_eMail").Value & _
              ";" & RS.Fields("Internet_URL").Value & ";"
    RS.MoveNext
Loop
Close #F