Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Database in ReadWrite Mode

Sub Open_ReadWrite()    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 = adModeReadWrite       .ConnectionString = "Data Source=" & strDb       .Open    End With    Debug.Print "Connection was opened."    conn.Close    Set conn = Nothing    Debug.Print "Connection was closed."    Exit Sub ErrorHandler:    Debug.Print Err.Number & ": " & Err.Description End Sub