Webmaster Forum / ASP / Database Access / January 2006

I have an ASP page that uses an MS-Access database.

When I run it on my Web host's server the databases's
".LDB" file still exists after completion.

I gather this happens when a connection is left open.

I believe I am closing all my connections by using
"Set objXXX = Nothing".

Below is all of the code that works with the database.

Can anyone spot a problem?  Thanks in advance.

Sub Process1()
   Dim objADO
   Set objADO = Server.CreateObject("ADODB.Connection")
       objADO.Open cDSN & Server.MapPath("Database1.mdb")
   Dim objRST
  '*
   Set objRST = Server.CreateObject("ADODB.Recordset")
       objRST.Open "Table1", objADO, adOpenKeySet, adLockOptimistic,
adCmdTable
       objRST.AddNew
       objRST("Field1").Value = ""
       objRST.Update
       objRST.Close
   Set objRST = Nothing
  '*
       objADO.Close
   Set objADO = Nothing
End Sub

Sub Process2()
   Dim objADO
   Set objADO = Server.CreateObject("ADODB.Connection")
       objADO.Open cDSN & Server.MapPath("Database1.mdb")
   Dim objRST
   Dim objRSU
   Dim objRSX
  '*
   Set objRSX = objADO.Execute("DELETE FROM Table2")
   Set objRSX = Nothing
  '*
   Set objRSX = Server.CreateObject("ADODB.Recordset")
       objRSX.Open "Table2", objADO, adOpenKeySet, adLockOptimistic,
adCmdTable
       objRSX.AddNew
       objRSX("Field1").Value = objRST("Field1").Value
       objRSX.Update
       objRSX.Close
   Set objRSX = Nothing
  '*
   Set objRST = objADO.Execute(strSQL)
   Do While Not objRST.EOF
       objRST.MoveNext
   Set objRST = Nothing
  '*
   Set objRST = objADO.Execute(strSQL)
   Do While Not objRST.EOF
       Set objRSU = objADO.Execute(strSQL)
       Set objRSU = Nothing
       objRST.MoveNext
   Set objRST = Nothing
  '*
       Set objRST = objADO.Execute(strSQL)
       Do While Not objRST.EOF
           objRST.MoveNext
       Set objRST = Nothing
  '*
       Set objRST = objADO.Execute(strSQL)
       Do While Not objRST.EOF
           objRST.MoveNext
       Set objRST = Nothing
  '*
       objADO.Close
   Set objADO = Nothing
End Sub

A Google Groups search found that I posted
a similar question almost three years ago:

URL:http://groups.google.com/group/microsoft.public.inetserver.asp.db/browse
_thread/thread/1a32044a73633701/6f6459aaefc85576?q=MS-Access+LDB+group%3Amic
rosoft.public.inetserver.asp.*&rnum=1#6f6459aaefc85576

The single response there does not apply.