BUG: ODBC OrdinalPosition Differs with dbSQLPassThrough (129731)

MORE INFORMATION

Steps to Reproduce Problem

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add the following code to the Form1_Load procedure:
   
   NOTE: This example assumes an existing table "userid.table1" with three fields (field1, field2, field3) on an ODBC DSN (mydatasource).

      Sub Form_Load()
         Dim Db as Database
         Dim RS As Recordset, I As Integer
         Dim TD As TableDef
         Set DB = Workspaces(0).OpenDatabase("", False, False, _
          "ODBC;dsn=mydatasource;UID=userid;pwd=userpassword")
         Debug.Print
         Debug.Print "From the TableDef ->"
         Set TD = DB.TableDefs("userid.table1")
         For I = 0 To TD.Fields.Count - 1
         Debug.Print TD.Fields(I).Name;
         Debug.Print " Count "; I;
         Debug.Print " Ordinal Postion "; _
            Str$(TD.Fields(I).OrdinalPosition)
         Next I
         Debug.Print
   
         Set RS = DB.OpenRecordset("SELECT * FROM userid.table1", _
            dbOpenSnapshot, dbSQLPassThrough)
         Debug.Print "From the RecordSet ->"
         For I = 0 To RS.Fields.Count - 1
            Debug.Print RS.Fields(I).Name;
            Debug.Print " Count "; I;
            Debug.Print " Ordinal Position ";_
               RS.Fields(RS.Fields(I).Name).OrdinalPosition
         Next I
         RS.Close
         DB.Close
      End Sub
   						

3. Start the program by choosing Start from the Run menu or by pressing the F5 key.
   
   The output shows the difference between the enumerated position and OrdinalPosition:

   >From the TableDef ->
   field1 Count 0 Ordinal Postion 0
   field2 Count 1 Ordinal Postion 0
   field3 Count 2 Ordinal Postion 0
   
   >From the RecordSet ->
   field1 Count 0 Ordinal Position 1
   field2 Count 1 Ordinal Position 2
   field3 Count 2 Ordinal Position 3

4. Now change the OpenRecordSet line to:

      Set RS = DB.OpenRecordset("SELECT * FROM table1", dbOpenSnapshot)
   						

5. Restart the program by choosing Restart from the Run menu or by pressing SHIFT+F5.
   
   Now, the output shows the enumerated position and OrdinalPosition in agreement:

   >From the TableDef:
   ------------------
   field1 Count 0 Ordinal Postion 0
   field2 Count 1 Ordinal Postion 0
   field3 Count 2 Ordinal Postion 0
   
   >From the RecordSet:
   -------------------
   field1 Count 0 Ordinal Position 0
   field2 Count 1 Ordinal Position 1
   field3 Count 2 Ordinal Position 2