i could not figure out why the DBF that i trying to delete raised an error of "Permission denied" even though i closed the recordset and connection for that DBF file and set their variables to nothing. Can anybody help me with this problem


Dim CnFox As New ADODB.Connection
Dim RsCur As New ADODB.Recordset
Dim iFile As New FileSystemObject

CnFox.Open "Provider=MSDASQL.1; Driver={Microsoft Visual Foxpro Driver}; SourceType=DBF; SourceDB=" & App.Path & "; Exclusive=No;"
RsCur.Open "SELECT * FROM CurrentItemMast ORDER BY StockNo", CnFox, adOpenForwardOnly, adLockReadOnly

'my codes
'
'
'


RsCur.Close
CnFox.Close
Set RsCur = Nothing
Set CnFox = Nothing

iFile.DeleteFile App.Path & "\CurrentItemmast.dbf", True
'or
'Kill App.Path & "\CurrentItemmast.dbf"
Set iFile = Nothing


[Edited by wen_dell on 25-07-2007 at 05:46 PM GMT]

____________________________
GOD IS MY SHEPERD

Hi wen_dell,
This is due to Connection Pooling, even though you have disposed of your connection variable the program is still holding a connection in the connection "Pool". This will not be disposed until you close your app completly.
You can try adding "OLE DB Services=-4;" to your connection string to mark it as a connection that is not to be pooled, but I do not use FoxPro so I'm not sure if it will work - but hey! whats to lose?


____________________________
multi-tasking - the ability to hang more than one app. at the same time.