Lukke database?

DB.Close



Set bc = Server.CreateObject("MSWC.BrowserType")
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:websXXX.mdb;" & "DefaultDir=d:webs;" & "FIL=MS Access;"
DB.Open
SQL = "SELECT TOP 10 * FROM XXX"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, DB, 3, 3

  'udskreiv far RS

RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing