Привет всем.
Выгружаю записи в текстовый, но при этом каждая строка обрамляется кавычками. Как сделать чтобы не происходило обрамление кавычками?

Private Sub btnOK_Click()
Dim strProjectPath As String, strDirFilePath As String, strFileName As String
Dim cFile As Long
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim NodeRS As ADODB.Recordset
Dim SQLstr, NodeText As String
Dim NodeX As Node
Dim Name As String, EmployeeName As String

On Error GoTo Err_ShowTreeHandler
'-------------------
Set NodeRS = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection

cmd.CommandText = "uspOrgStructDown"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Refresh
cmd.Parameters("@startPoint") = Null

Set NodeRS = cmd.Execute

strProjectPath = CurrentProject.Path & "\" 'Текущий путь к проекту

strDirFilePath = strProjectPath
strFileName = "orgstruct.txt"

ChDir strProjectPath
hFile = FreeFile

On Error GoTo Err_OpenFile
Open strFileName For Output Access Write As hFile

Write #hFile, "UniqueID" & Chr(9) & "Name" & Chr(9) & "EmployeeName" & Chr(9) & "Reports_To"

i = 0
Do While Not NodeRS.EOF
UniqueID = Trim(NodeRS!Item)

If IsNull(NodeRS!Parent) Then
Reports_To = Null
Else
Reports_To = NodeRS!Parent
End If

Name = NodeRS!ItemName
EmployeeName = Nz(NodeRS!empName)
Write #hFile, UniqueID & Chr(9) & Name & Chr(9) & EmployeeName & Chr(9) & Reports_To

NodeRS.MoveNext
Loop

Set NodeRS = Nothing
Set cmd = Nothing

Close hFile

MsgBox "Организационная структура успешно выгружена в файл.", vbInformation

'-----------------
Exit Sub
Err_ShowTreeHandler:
Set NodeRS = Nothing
Set cmd = Nothing
MsgBox "Ошибка выгрузки.", vbCritical
'-----------------
Exit Sub
Err_OpenFile:
Set NodeRS = Nothing
Set cmd = Nothing
MsgBox "Ошибка открытия файла для записи.", vbCritical

End Sub

Спасибо.