PRB: RDORESULTSET's SOURCETABLE Property Won't Return a Value (175080)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start the Visual Basic 5.0 or 6.0 Enterprise edition.
2. Add "Microsoft's Remote Data Objects 2.0" under the Project References.
3. Place the following code in the Load Method of a Visual Basic Form:

        Dim rdocn As rdoConnection
        Dim rdors As rdoResultset
        Set rdocn = rdoEngine(0).OpenConnection("", rdDriverNoPrompt, False, _
          "Driver={Microsoft ODBC for Oracle}; UID=PSS; PWD=pss;" _
          & "ConnectString=TNS:NCORACLE73")
        On Error GoTo MyErr
          rdocn.Execute ("drop table TESTA1")
        MyErr:
        rdocn.Execute ("create table testa1 (col1 char(5), col2 char(5))")
        Set rdors =rdocn.OpenResultset("select * from testa1",rdOpendynamic, _
           rdConcurLock)
        Debug.Print "sourcecolumn:  " & rdors(0).SourceColumn
        Debug.Print "sourcetable:  " & rdors(0).SourceTable 'Nothing Returned
   						

4. Run the form and note the Intermediate Window's output.