Steps to reproduce the behavior

1. Create a new Microsoft Windows Application by using Visual Basic .NET or Microsoft Visual Basic 2005. By default, Form1.vb is created.
2. In Solution Explorer, right-click References, and then click Add Reference.
3. In the Add Reference window, click the COM tab. In the Component Name list, click Microsoft ActiveX Data Objects 2.7 Library.
4. Click Select, and then click OK.
   
   Note In Visual Studio 2005, click OK.
5. Add a Button control to Form1.
6. Double-click Button1 to add code for the click event of the Button1 control.
7. Add the following code to the Button1_Click event:

         Dim cn As ADODB.Connection
         Dim rs As ADODB.Recordset
         Dim cmd As ADODB.Command
         Dim intDiscount As Short
   
         ' Open the Connection.
         cn = New ADODB.Connection()
         cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Pubs;Data Source=YourServer"
         cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
         cn.Open()
   
         ' Create a Command object.
         cmd = New ADODB.Command()
         With cmd
            .Name = "QueryCustomers"
            ' Set the SQL query to be executed.
            .CommandText = "SELECT TOP 5 stor_id AS CustName, Discount FROM DISCOUNTS WHERE DISCOUNT > ?"
            .CommandType = ADODB.CommandTypeEnum.adCmdText
            .Parameters.Append(.CreateParameter("DiscountIn", ADODB.DataTypeEnum.adDouble, ADODB.ParameterDirectionEnum.adParamInput))
            .ActiveConnection = cn
         End With
   
         ' Create a Recordset object to get the results.
         rs = New ADODB.Recordset()
         ' Execute the query.
         cn.QueryCustomers(intDiscount, rs)
         MsgBox("Total Number of Customers with " & intDiscount & "% Discount is " & rs.RecordCount)
         rs.ActiveConnection = Nothing
         cmd.ActiveConnection = Nothing

   Note Replace YourServer with the name of your computer that is running SQL Server.
8. On the Debug menu, click Start to run the application.
9. Click Button1. In the dialog box, click OK.
10. Click Button1 again. You receive the error message that is mentioned in the "Symptoms" section of this article.

Back to the top