VBA Excel 2003 - проблема открытия файла на запись

Формулировка задачи:

Здравствуйте, уважаемые!
Проблема появилась в Excel 2003: При выполнении следующего куска кода
...
fName = Nz(fName, "Результат.txt")
FileNum = FreeFile
Open fName For Output As #FileNum
Set rs = cnn.Execute(fSQL)
Do While Not rs.EOF
Print #FileNum, rs.Fields(0).Value
rs.MoveNext
Loop
rs.Close
Close #FileNum
...
на операторе Open... получаю ошибку 53 - File not found в случае, когда файла с таким именем на диске нет, и ошибку 54 - Bad file mode в случае, когда такой файл на диске есть. Хелп говорит, что при открытии файла на запись файл перезатирается, но у меня этого не происходит.
Глюк плавающий, на части компов проявляется, на части - нет. Куда рыть?

Решение задачи: «VBA Excel 2003 - проблема открытия файла на запись»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> objFSO <font color="blue">As</font> <font color="blue">Object</font>,objOutputFile <font color="blue">as</font> <font color="blue">Object</font>
<font color="blue">Set</font> objFSO=CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
<font color="blue">Set</font> objOutputFile=objFSO.CreateTextFile(<font color="teal">"Результат.txt"</font>,True)
<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> rs.EOF
    objOutputFile.WriteLine rs.Fields(<font color="darkblue"><b>0</b></font>).Value
    rs.MoveNext
<font color="blue">Loop</font>
objOutputFile.<font color="blue">Close</font>
<font color="blue">Set</font> objOutputFile=<font color="blue">Nothing</font>
<font color="blue">Set</font> objFSO=<font color="blue">Nothing</font>

                        