title: Error in visual basic statement with Jet statement on Workspace.openDatabase
body: <p>I have a .accdb file at Path ("C:\Southern\Southern.accdb") and recordset shows "Run Time Error 3734" at Workspace.openDatabase statement. I am trying the following code-</p>
  
  <pre><code>ChDir "C:\Southern"
      Me!F_Main1.SourceObject = "F_Blank"
      Me!F_Main1.Requery
  
      Me!CurrentDate = Now()
      Me!CurrentTime = Now()
  
      '      Check the startup record to find the shop
  
      Dim Jet As Workspace
      Dim PowerShop As Database
      Dim StartRS As Recordset
      Dim SQL As String
      Dim ReadOnly As Boolean
      Dim NetPath As String
  
  
  
  
      ReadOnly = True
  
  
      '      &gt;&gt;&gt;&gt;&gt; Open Database &lt;&lt;&lt;&lt;&lt;
  
      Set Jet = CreateWorkspace("", "admin", "", dbUseJet)
      MsgBox "Opening Database...."
      Set PowerShop = Jet.OpenDatabase("C:\Southern\Southern.accdb", ReadOnly)
  
      'C:\Southern
      '       &gt;&gt;&gt;&gt; Read Thru BuyStocks for this buy
  
      SQL = "Select Shop from T_Startup"
  </code></pre>
  
  <p>I have an error in the following statement-</p>
  
  <pre><code>Set PowerShop = Jet.OpenDatabase("C:\Southern\Southern.accdb", ReadOnly)
  </code></pre>
  
  <p>Please guide to solve the error</p>