Access - bloqueo pesimista

Estoy trabajando con access, he tratado de utilizar el bloqueo pesimista pero parece que no funciona por que deja conectar a otros usuarios, he leido acerca de esto en algunos lugares me dicen que actualice el MDAC al 2.8 SP1, pero no resulta. de antemano gracias si alguin pudiera ayudarme.

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.AccessConnection
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.Source = "SELECT * FROM oper"
rs.LockType = adLockPessimistic
rs.CursorType = adOpenStatic
rs.Open
MsgBox "open"

Hola. ¿Has probado con las opciones del menú Herramientas --> Opciones --> Avanzadas? Allí puedes hacer bloqueos de diferentes maneras, sin necesidad de recurrir a código, y puedes abrir la bbdd en modo exclusivo si quieres.