PRB: User Connection Object Connect Property Remains Populated

MORE INFORMATION

Steps to Reproduce Behavior

Task 1: Create the UserConnection

1. Start a new project in Visual Basic and choose "Standard EXE." Form1 is created by default.
2. From the Project menu, select Components, select the Designers tab, and then place a check next to Microsoft UserConnection.
3. From the Project menu, select Add ActiveX Designer, and then select Microsoft UserConnection. This will bring up a dialog titled "UserConnection1 Properties."
4. On the Connection tab, select either a DSN or DSN-less connection and fill in the appropriate information. On the Authentication tab, leave User Name and Password blank. At ODBC Prompt Behavior dropdown box, choose "Only when needed."
5. Click OK to save this information and return to the Designer window.

Task 21: Build the Visual Basic Code

1. Add two CommandButtons, Command1 and Command2, to Form1. Command1 establishes the connection; Command2 closes it Both display the Connect property in the debug window.
2. Paste the following code in the General Declaration section of Form1:

         ' *** To workaround the problem:
         ' *** Uncomment the 2 lines of VB code to re-set
         ' *** Connect property using variable myConnect
         ' ***
   
         Dim uc As New UserConnection1
         Dim myConnect As String
   
         Private Sub Command1_Click()
            '  myConnect = uc.Connect
            Debug.Print uc.Connect
            uc.EstablishConnection
         End Sub
   
         Private Sub Command2_Click()
            uc.Close
            '  uc.Connect = myConnect
            Debug.Print uc.Connect
         End Sub
   
         Private Sub Form_Load()
            Command1.Caption = "Establish Connection"
            Command2.Caption = "Close Connection"
         End Sub
   
         Private Sub Form_Unload(Cancel As Integer)
            Set uc = Nothing
         End Sub
   						

3. Press F5 key to start the program.