|
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
|