How To Open an Access Database with User Security

MORE INFORMATION

   Database Name:  Secure AccessDB.mda
   Database Table: Name
   Table Field:    Last Name
   User Name:      NewAdmin
   Password:       NewAdmin
   Member of:      Admins Group
   Permissions:    All
				

Steps To Reproduce

1. Start Visual Basic, or if it is already running, click New Project from the File menu.
2. Place the following objects on the Form1 form and set the appropriate properties:

      Control             Name              Property         Value
      ---------------------------------------------------------------------
   
      Label               Label1            Caption          User Name:
                                            Height           255
                                            Left             120
                                            Top              120
                                            Width            855
   
      Text Box            Text1             Caption          <Blank>
                                            Height           285
                                            Left             1080
                                            Top              120
                                            Width            1455
   
      Command Button      Command1          Height           372
                                            Left             2760
                                            Top              120
                                            Width            1572
   
      Label               Label2            Caption          Password:
                                            Height           255
                                            Left             120
                                            Top              480
                                            Width            855
   
      Text Box            Text2             Caption          <Blank>
                                            Height           285
                                            Left             1080
                                            Top              480
                                            Width            1455
   
      Label               Label3            Caption          <Blank>
                                            Height           255
                                            Left             120
                                            Top              840
                                            Width            4335
   					

3. Copy and paste the following code to the Form1 Code Window:

      Private Sub Command1_Click()
         Dim MyWorkspace As Workspace
         Dim SecuredDB As String
         Dim slUserName As String
         Dim slPassword As String
         Dim db As Database
         Dim rs As Recordset
   
         'Set the location of the system database
         DBEngine.SystemDB = _
                 "C:\Projects\Secured Database Article\system.mdw"
   
         'Create a new workspace object
         slUserName = Text1.Text
         slPassword = Text2.Text
         Set MyWorkspace = DBEngine.CreateWorkspace("New", _
                                                     slUserName, _
                                                     slPassword)
   
         'Open the database
         SecuredDB = _
                "C:\Projects\Secured Database Article\Secure AccessDB.mdb"
         Set db = DBEngine.Workspaces("New").OpenDatabase(SecuredDB)
   
         Set rs = db.OpenRecordset("Name", dbOpenDynaset)
         rs.MoveFirst
         Label3.Caption = _
                    "The first record is " & rs.Fields("LastName").Value
   
         'Close the recordset and the database
         rs.Close
         db.Close
      End Sub
   
   					

4. Press the F5 key to run the project or, from the Tools menu, click Run Project. Enter a valid User Name and Password, and then click the command button. The first record in the Last Name field is displayed in the Label. If you enter an invalid User Name or an invalid Password, a run-time error (3029) occurs.

Possible Errors