1. DAO database (only for small load) 　　

　　Dim File, Conn, RS 　

　　Const ReadOnly = False 　

　　File = "\\server\share\file.mdb" 　

　　Set Conn = CreateObject("DAO.DBEngine.35").Workspaces(0).OpenDatabase(File,,ReadOnly)

　　Set RS = Conn.OpenRecordset(SQL) 　　

　　2. ADO + Jet OLE DB provider 　

　　Dim Conn, RS 　

　　Set Conn = CreateObject("ADODB.Connection") 　

　　Conn.Provider = "Microsoft.Jet.OLEDB.4.0" 　

　　Conn.Open "\\server\share\file.mdb" 　

　　Set RS = Conn.Execute(SQL) 　　

　　Set UM = CreateObject("UserManager.Server") 　　

　　UM.LogonUser "Login with the rights", "Password", "Domain"

　　... 　

　　open database 　

　　... 　　

　　UM.RevertToSelf