Steps to Reproduce the Behavior

1. Start Microsoft Visual Studio .NET.
2. Create a new Windows Application project in Visual Basic .NET.
3. Place a Button control on Form1, and change its Name property to btnTest.
4. In Solution Explorer, right-click References, and then click Add Reference.
5. On the COM tab in the Add Reference dialog box, click Microsoft ActiveX Data Objects 2.x Library. Click Select to add this reference to the Selected Components section, and then click OK.
6. If no wrapper is found for the selected library, you receive a warning. Click Yes to generate a wrapper. The ADODB reference is added to the project references.
7. Copy and paste the following code in the Code window after the "Windows Form Designer generated code" region:

   Private Sub btnTest_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) Handles btnTest.Click
       Dim myConnString As String = _
           "Provider=SQLOLEDB.1;User ID=sa;password=sa;Initial Catalog=pubs;" & _
           "Data Source=mySQLServer"
       Dim mySelectQuery As String = "SELECT * FROM Authors"
       Dim myConnection as New ADODB.Connection()
       Dim myRecordset1 As New ADODB.Recordset()
       Dim myRecordset2 As New ADODB.Recordset()
       Try
           myConnection.ConnectionString = myConnString
           myConnection.open
   
           'Setting the ActiveConnection to a Connection object will work properly.
           myRecordset1.ActiveConnection = myConnection
           myRecordset1.Open(mySelectQuery)
           MessageBox.Show(myRecordset1(0).value)
   
           'Setting the ActiveConnection to a Connection string will fail.
           'Comment the next line of code, and uncomment the line that uses
           'the let_ActiveConnection to make the code work properly.
           myRecordset2.ActiveConnection = myConnString
           'myRecordset2.let_ActiveConnection(myConnString)
           myRecordset2.Open(mySelectQuery)
           MessageBox.Show(myRecordset2(0).value)
       Catch ex As Exception
           MessageBox.Show(ex.ToString())
       Finally
           myRecordSet1.Close()
           myRecordSet2.Close()
           myConnection.Close()
       End Try
   End Sub
   					

8. Modify the connection string (myConnString) as appropriate for your environment.
9. Save your project.
10. From the Debug menu, click Start, and run your project.
11. Click the button. When an ActiveConnection property is set to an object (in this case, the Connection object), it returns data properly.
12. Set the ActiveConnection property to a Connection string. Notice that the code fails with the above-mentioned exception.
13. Comment out the line that sets the ActiveConnection property to a Connection string. Uncomment the line that uses the let_ActiveConnection method.
14. Run the project again. Notice that the data is returned properly.

Back to the top