Article ID: 192028
Article Last Modified on 1/23/2007
Set db = ws.OpenDatabase _
("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
False, False, "MS Access;PWD=FourteenCharac")
to read as follows:
Set db = ws.OpenDatabase _
("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
False, False, "MS Access;PWD=FourteenChara")
NOTE: This will programmatically open the Northwind.mdb database even
though the password is not correct.
Sub OpenDB()
Dim db As Database
Dim ws As Workspace
Set ws = DBEngine.Workspaces(0)
' The default path to Northwind.mdb in Access version 7.0 is
' C:\MSOffice\Access\Samples\Northwind.mdb
Set db = ws.OpenDatabase _
("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
False, False, "MS Access;PWD=FourteenCharac")
Set ws = Nothing
Set db = Nothing
End Sub
Additional query words: wrong invalid incorrect run time error 3031
Keywords: kbbug kbpending KB192028