Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Database Secured at the User Level

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