I need help with this code
Problem is with this line "pth = GetFolder("P:\")"
I am trying to allow user to open a directory to open a database.
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rst As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
pth = GetFolder("P:\")
Set db = ws.OpenDatabase _