New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Public Sub OpenDB2() Dim db As DAO.Database Dim ws As DAO.Workspace Dim rst As DAO.Recordset Dim i As Integer Cells.Clear MsgBox "Update" Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase _ ("\\XXX\XX\XX_2007.accdb", _ False, False, "MS Access;PWD=XXXX") ' Set ws = DBEngine.Workspaces(0) ' Set db = ws.OpenDatabase _ ' ("XXX\XX\XX\XX.mdb", _ ' False, False, "MS Access;PWD=XXXXX") ' '
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.