BUG: VFP CDX with EMPTY Function is Not Recognized in VB (175691)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a Visual Basic project and choose DAO 3.5 under project references.
2. In FoxPro 2.5, use the customer table and set up some indexes on cno, state and ono. The CDX file with the same name as the table file will contain the indexes.
3. Place 2 CommandButtons on the form, and paste in the following code:

         Option Explicit
   
         Dim FoxDataDB As Database
         Dim RS As Recordset
         Dim myidx As Index
   
         Private Sub Command1_Click()
           RS.Close
           FoxDataDB.Close
           Set RS = Nothing
           Set FoxDataDB = Nothing
           Unload Me
         End Sub
   
         Private Sub Command2_Click()
            For Each myidx In FoxDataDB.TableDefs("customer").Indexes
               Debug.Print myidx.Name
               RS.Index = myidx.Name
            Next
         End Sub
   
         Private Sub Form_Load()
   
         Set FoxDataDB = Workspaces(0).OpenDatabase( _
                            "d:\fpw26\tutorial", _
                            False, False, "FoxPro 2.5;")
            Set RS = FoxDataDB.OpenRecordset("customer", dbOpenTable)
   
         End Sub
   						

4. Run the code above and note that the index names are printed.
5. Delete some phone numbers from the database above and add the following index by choosing Database Setup from the menu in FoxPro:

   IIF(EMPTY(phone), state, phone)

6. Run the code above and note that you get the error above under NT and Windows 2000. Under Windows 95 and Windows 98, the index will not be recognized.
7. Remove the phone index, and the program will run successfully if the index has not become corrupted.