connection control/passive shutdown Access 2000 and forward
Posted on 2004-10-25
I'm trying to use Access 2002 (with an Access 2000 database format) and make it so no one else can log on. I'm using the "Connection Control" that micosoft talks about, but it doesn't work for me.
I run the code below, and after running it, I can go to another computer, and open M:\Access10\OrderTrack_Data.mdb and open tables with no problems.
Any ideas would be greatly appreciated.
Public Function axa()
Dim cn As New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source=M:\Access10\OrderTrack_Data.mdb"
' Restrict other users from opening the database Passive Shutdown = 1 Normal = 2
cn.Properties("Jet OLEDB:Connection Control") = 1
Debug.Print cn.Properties("Jet OLEDB:Connection Control")