AccessDBPass1
Dim db as Database Dim Wkspc as WorkSpaces Dim strPass as STRING strPass = ";pwd=PASSWORD" Set Wkspc = Workspaces(0) Set db = Wkspc.OpenDatabase(DBName, False, False, strPass)
Dim db as Database
Dim Wkspc as WorkSpaces
Dim strPass as STRING
strPass = ";pwd=PASSWORD"
Set Wkspc = Workspaces(0)
Set db = Wkspc.OpenDatabase(DBName, False, False, strPass)
(accessdbpass1.html)- by Paolo Puglisi - Modifica del 25/3/2019