Итак, имеется *.DBF файл, из которого данные копируются в БД, после чего этот файл нужно удалить. При попытке удаления выдает ошибку Permission Denied.
Не дает себя удалить даже ручками в винде(после закрытия приложения). Подскажите что можно сделать.
собственно код

[SRC vb6]

Private cn As ADODB.Connection
Private fso As Scripting.FileSystemObject
Private rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Data Source=apa;Initial Catalog=post"

S = "Select distinct t1.dataf "
S = S & "From OPENROWSET('MSDASQL', 'DRIVER=Microsoft dBase VFP Driver (*.dbf);Deleted=No;ReadOnly=1;Null=Yes;BackgroundFetch=Yes;Exclusive=No;SourceType=DBF;SourceDB=D:\work\Post\test2', 'select dataf from 00001016.DBF') t1"

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient

rs.Open S, cn, 0, 1
If rs.RecordCount > 0 Then
Do Until rs.EOF
MsgBox rs!dataf
rs.MoveNext
Loop
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Set fso = New Scripting.FileSystemObject
fso.MoveFile "D:\work\post\test2\00001016.DBF", "D:\work\post\test3\00001016.DBF"
Set fso = Nothing
End Sub
[/SRC]