Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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") ' '
Join the community of 500,000 technology professionals and ask your questions.