Dim conn
Sub DBOpen()
Dim db : db=Server.MapPath(”zzz.mdb”)
Set conn=Server.CreateObject(”Adodb.Connection”)
On Error Resume Next
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” db
If Err.Number>0 then
Err.Clear
Response.Write(”h1>The Database link is ERROR/h1>”)
Response.End()
End If
On Error GoTo 0
End Sub

Call DBOpen()
… …
conn.CLose() : Set conn=Nothing