Sub test()
Dim rs As ADODB.Recordset
 
Set rs = New ADODB.Recordset
 
    rs.Open "kods", _
            CurrentProject.Connection, _
            adOpenKeyset, adLockOptimistic
 
    Call print_TEXT(rs, CurrentProject.Path)
End Sub
 
Sub print_TEXT(r As Recordset, _
                yol As String)             
 
Open yol & "\" & r.Source & ".txt" For Output As #1
 
    While Not r.EOF
        Print #1, r(0)
        r.MoveNext
    Wend
 
Close #1
End Sub