FIX: OpenSchema Method Generates Error 3251 (195487)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Visual Basic project. Form1 is created by default.
2. Add a command button (Command1) to Form1. Change the name property to cmdOpenSchema.
3. Add the Microsoft ActiveX Data Objects 2.0 Library as a Reference.
4. Paste the following code in the General Declaration of Form1.
   
   Note You must change UID <username> and PWD <strong password> to the correct values before you run this code. Make sure that UID has the appropriate permissions to perform this operation on the database.

         Option Explicit
            Dim WithEvents rs_Events As ADODB.Recordset
   
         Private Sub cmdOpenSchema_Click()
   
            Dim cn As New ADODB.Connection
   
            On Error GoTo ErrHandler
   
            Set cn = New ADODB.Connection
   
           ' Uncomment the following line to workaround the problem:
           ' cn.CursorLocation = adUseClient
   
           ' Open connection
           cn.Open "Provider=MSDASQL;DSN=pubs;UID=<user name>;PWD=<strong password>;Database=pubs;"
   
           ' Error 3251 occurs at the following line.
           Set rs_Events = cn.OpenSchema(adSchemaTables)
   
           ' As a test: Print all table names and types in your database.
           Do Until rs_Events.EOF
              Debug.Print "Table name: " & rs_Events!TABLE_NAME & _
                 vbCr & "Table type: " & rs_Events!TABLE_TYPE & vbCr
             rs_Events.MoveNext
          Loop
   
         ' Clean up objects.
            rs_Events.Close
            cn.Close
            Set rs_Events = Nothing
            Set cn = Nothing
   
         Exit Sub
   
         ErrHandler:
   
             MsgBox Err.Number &amp; ": " &amp; Err.Description
   
         End Sub
   					

5. Run the program. Notice that when the Cursorlocation property is set to adUseClient that all the information prints properly to the Immediate Window.