VBA code to open access db in exclusive mode

Hello all,

Here is a snippet of my code can someone help me in adjusting it to have the access database open exclusively please

Dim db As Database
Dim ws As Workspace
Dim rs As Recordset
Dim r As Long
Set ws = DBEngine.Workspaces(0)
Dim Wks As Worksheet
    
    Set Wks = Worksheets("CE")
  'On Error GoTo ErrHandler:

        
        Set db = ws.OpenDatabase _
   (Sheet2.Range("A30"), _
       False, False, "MS Access;PWD=q1w2e3r4")

Found the answer.

Dim db As Database
Dim ws As Workspace
Dim rs As Recordset
Dim r As Long
Set ws = DBEngine.Workspaces(0)
Dim Wks As Worksheet
    
    Set Wks = Worksheets("CE")
  'On Error GoTo ErrHandler:

        
        Set db = ws.OpenDatabase _
   (Sheet2.Range("A30"), _
       True, False, "MS Access;PWD=q1w2e3r4")