Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Database in Read-Only Mode

Sub Open_ReadOnly()    Dim conn As ADODB.Connection    Dim strDb As String    On Error GoTo ErrorHandler    strDb = CurrentProject.Path & "\mydb.mdb"    Set conn = New ADODB.Connection    With conn       .Provider = "Microsoft.Jet.OLEDB.4.0;"       .Mode = adModeRead       .ConnectionString = "Data Source=" & strDb       .Open    End With    Debug.Print "Database was opened for read-only access."    conn.Close    Set conn = Nothing    Debug.Print "Database was closed."    Exit Sub ErrorHandler:    MsgBox Err.Number & ": " & Err.Description End Sub