Dim Conn As Object
Dim Connstr As String
Dim Db, MyDbPath
MyDbPath=""
Db = "\..\DB\xxx.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
Set conn=CreateObject("ADODB.Connection") ' or Set Conn=New ADODB.Connection
conn.Open Connstr
Dim Rs As Object
Set Rs=Conn.Execute("select * from users")