DefaultUser, DefaultPassword Properties Example

This example sets the DefaultUser and DefaultPassword properties which will determine the settings for the default Workspace object.

Sub DefaultUserX()

    ' Set the DefaultUser and DefaultPassword properties for 
    ' the DBEngine object.
    DBEngine.DefaultUser = "NewUser"
    DBEngine.DefaultPassword = ""

    Debug.Print _
        "Setting DBEngine.DefaultUser to 'NewUser'..."
    Debug.Print _
        "Setting DBEngine.DefaultPassword to " & _
            "[zero-length string]..."

    Dim wrkJet As Workspace
    Dim wrkLoop As Workspace
    Dim prpLoop As Property

    Set wrkJet = CreateWorkspace("JetWorkspace", "admin", _
        "", dbUseJet)

    ' Enumerate Workspaces collection.
    On Error Resume Next
    For Each wrkLoop In Workspaces
        Debug.Print "Workspace: " & wrkLoop.Name
        ' Enumerate Properties collection of each Workspace 
        ' object.
        For Each prpLoop In wrkLoop.Properties
            Debug.Print "  " & prpLoop.Name & " = " & prpLoop
        Next prpLoop
    Next wrkLoop
    On Error GoTo 0

    wrkJet.Close

End Sub