Knowledge Base  
ACC2000: How to Open a Database from Read-Only Media with Microsoft Jet  4 . 0  and ADO

When you want to open a database read-only with the ActiveX Data Object (ADO) 
and the Jet  4 . 0  provider, the Connection object's Mode property must be set to 
adShareDenyWrite. This article demonstrates how to do this. 


Sub OpenReadOnlyMDB()
   Dim conn As ADODB.Connection
   Dim rstSchema As ADODB.Recordset
   Dim strCnn As String
        
   Set conn = New ADODB.Connection
        strCnn = "Provider=Microsoft.Jet.oledb.4.0;" & _
        "Data Source=D:\PFILES\MSOFFICE\OFFICE\SAMPLES\NWIND.MDB"
   conn.CursorLocation = adUseServer
   conn.Mode = adShareDenyWrite
   conn.Open strCnn

  'Open the tables schema rowset
   Set rstSchema = conn.OpenSchema(adSchemaTables)
    
  'Loop through the results and print the names in the Immediate window
    While Not rstSchema.EOF

        If rstSchema.Fields( "TABLE_TYPE" ) =  "TABLE"  Then _
                Debug.Print rstSchema.Fields( "TABLE_NAME" )
        
        rstSchema.MoveNext
    Wend
    rstSchema.Close
    conn.Close 
End Sub