|
Sub Open_WithUserSecurity()
Dim conn As ADODB.Connection
Dim strDb As String
Dim strSysDb As String
On Error GoTo ErrorHandler
strDb = CurrentProject.Path & "\mydb.mdb"
strSysDb = CurrentProject.Path & "\Security.mdw"
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source=" & strDb & ";" & _
"Jet OLEDB:System Database=" & strSysDb
.Open , "Developer", "WebMaster"
End With
conn.Close
Set conn = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Number & ": " & Err.Description
End Sub
|