export af 2 txt filer fra en access db

Jeg har et lille stump kode som gerne skulle exportere indholdet af 2 tabler fra en access database. den første export går igennem som en drøm og jeg har også haft den anden til at virke men nu fejler hele tiden. Jeg tror måske problemet ligger i selve de data som jeg prøver at exportere men indholdet er kun tal, tekst og Ja/Nej værdier. Her kommer min kode:

Option Compare Database  'Anvend databasens rækkefølge til strengsammenligninger.
Dim Antalposter, Antalafregn, t, bilag As Double
Dim Forkortelse, valutas, test, filesti As String
Public Function GemKommafil()
   
    Dim CDB As Database, TbaseUsersTabel As Recordset
    Set CDB = DBEngine.Workspaces(0).Databases(0)

    t = 0
    Set TbaseUsersTabel = CDB.OpenRecordset("tbaseusers")
    Antalposter = TbaseUsersTabel.RecordCount
    TbaseUsersTabel.MoveFirst
    For t = 0 To (Antalposter - 1)
        If TbaseUsersTabel![Default] = -1 Then
            filesti = TbaseUsersTabel![fillokation] & "\" & TbaseUsersTabel![Initial] & TbaseUsersTabel![bilagNext] - 1
        End If
        TbaseUsersTabel.MoveNext
    Next t
    TbaseUsersTabel.Close

    Dim qcashboxtilXaltabel As Recordset
    Set qcashboxtilXaltabel = CDB.OpenRecordset("qcashboxtilXal")
   
    Antalafregn = qcashboxtilXaltabel.RecordCount
    If Antalafregn > 0 Then
        DoCmd.TransferText acExportDelim, "cashbox", "qcashboxtilXal", filesti & ".txt"
    End If
    qcashboxtilXaltabel.Close
       
    Dim qBilagdatatilXaltabel As Recordset
    Set qBilagdatatilXaltabel = CDB.OpenRecordset("qBilagdatatilXal")
   
    Antalafregn = 0
    Antalafregn = qBilagdatatilXaltabel.RecordCount
    If Antalafregn > 0 Then
-->        DoCmd.TransferText acExportDelim, "cashbox", "qBilagdatatilXal", filesti & "_2.txt"
    End If
    qBilagdatatilXaltabel.Close
   
    CDB.Close
End Function

Fejlen er en 3011, hvor den påstår at den ikke kan finde file som den skal oprette eller at stien ikke er korrect, men det er den samme sti som den første export i koden.
qcashboxtilXal, qBilagdatatilXal er begge storedprocedures på den samme access database som jeg har dette kode liggende i.
select statementet til qBilagdatatilXal ser sådan her ud: SELECT tBilagdatatilXal.plads, tBilagdatatilXal.bilag, tBilagdatatilXal.afregntype, tBilagdatatilXal.datoafregn, tBilagdatatilXal.belob, tBilagdatatilXal.initial, tBilagdatatilXal.dato, tBilagdatatilXal.master
FROM tBilagdatatilXal
WHERE (((tBilagdatatilXal.master)=False));

Jeg håber der er en som kan hjælpe mig for jeg tror jeg har stiret mig blind på fejlen og kan simplehen bare ikke finde den.