FIX: ADO Suppresses Errors When Fetching into Nonvariant Datatypes

   Date       Version        Size             File name
   ----------------------------------------------------------
   8/29/2000  2.51.5629.0     20,480 bytes    Msader15.dll
   8/29/2000  2.51.5629.0    487,696 bytes    Msado15.dll
   8/29/2000  2.51.5629.0    172,304 bytes    Msadomd.dll
   8/29/2000  2.51.5629.0     57,616 bytes    Msador15.dll
   8/29/2000  2.51.5629.0    184,592 bytes    Msadox.dll
   8/29/2000  2.51.5629.0     57,616 bytes    Msadrh15.dll
   8/29/2000  2.51.5629.0     94,480 bytes    Msjro.dll
				

WORKAROUND

Steps to Reproduce Behavior

1. Copy the following code into a Visual Basic project:
   
   Note You must change the UID <username> value and the PWD =<strong password> value to the correct values before you run this code. Make sure that UID has the appropriate permissions to perform this operation on the database.

   Dim cn As ADODB.Connection, cnOtherUser As ADODB.Connection
   Dim rs As ADODB.Recordset, rsOtherUser As ADODB.Recordset
   Dim strConn As String, strSQL As String
   Dim varData As Variant, intData As Integer
   
   strConn = "Provider=MSDASQL;Driver={SQL Server};Server=YourServer;Database=Northwind;UID=<user name>;PWD=<strong password>;"
   strSQL = "SELECT * FROM Customers"
   
   Set cnOtherUser = New ADODB.Connection
   cnOtherUser.Open strConn
   Set rsOtherUser = New ADODB.Recordset
   rsOtherUser.Open strSQL, cnOtherUser, adOpenKeyset, adLockPessimistic, adCmdText
   rsOtherUser.MoveFirst
   
   Set cn = New ADODB.Connection
   cn.Open strConn
   cn.CommandTimeout = 10
   Set rs = New ADODB.Recordset
   rs.Open strSQL, cn, adOpenKeyset, adLockPessimistic, adCmdText
   If MsgBox("Use Variant?", vbYesNo) = vbYes Then
       On Error Resume Next
       varData = rs(0)
       If Err.Number <> 0 Then
           MsgBox Err.Description
           Err.Clear
           cn.Errors.Clear
       Else
           MsgBox "No error!"
       End If
       On Error GoTo 0
   Else
       On Error Resume Next
       intData = rs(0)
       If Err.Number <> 0 Then
           MsgBox Err.Description
           Err.Clear
           cn.Errors.Clear
       Else
           MsgBox "No error!"
       End If
       On Error GoTo 0
   End If
   rs.Close
   cn.Close
   
   rsOtherUser.Close
   cnOtherUser.Close
   					

2. Add a reference to the Microsoft ActiveX Data Objects 2.5 Library.
3. Run the code, and choose Yes when prompted to use a Variant. Note that a "Timeout expired" error message is returned, indicating that the records could not be fetched in the specified amount of time.
4. Run the code again, and this time choose No when prompted to use a Variant. This time an error is returned stating that there is no current record, but there is no indication that you exceeded your timeout.