<%
Dim oConn, MM_Registry_STRING 
Set oConn = Server.CreateObject("ADODB.Connection")
MM_Registry_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=C:\sites\folder\username\database\data.mdb;" & _
              "Persist Security Info=False"
oConn.Open(MM_Registry_STRING)
oConn.Close
Set oConn = nothing
%>