PRB: Database Field in Collection Treated Differently in VB

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a reference to the "Microsoft DAO 3.5 Object Library."
3. Paste the following code into the Form1 code window:

         Private Sub Form_Load()
            Dim MyDatabase As Database
            Dim MyRecordset As Recordset
            Dim CollectionItem As Variant
            Dim MyCollection As New Collection
   
            'Open the database and recordset
            Set MyDatabase = OpenDatabase("C:\VB\NWIND.MDB")
            Set MyRecordset =  _
               MyDatabase.OpenRecordset("SELECT * FROM EMPLOYEES")
            'Add last name of each employee to the collection
            While Not MyRecordset.EOF
               MyCollection.Add MyRecordset![LastName]
               MyRecordset.MoveNext
            Wend
   
            'Display each item in collection
            For Each CollectionItem In MyCollection
               Debug.Print CollectionItem   '<- Generates an Error
            Next
   
            'Close the recordset and database
            MyRecordset.Close
            MyDatabase.Close
         End Sub
   						

4. If necessary, modify the path to "NWIND.MDB" in the call to the "OpenDatabase" method.
5. Execute the sample project. Note that you will receive the "No Current Record" error message.