Errors when trying to execute query

[frustrating]

I just tried using your fixes and got the same error. "Item not found in this collection" and it occurs on line:

xstr = rst!Fields("[Dept Root Source]")

I swear this field exists!

I was playing with this code a bit, and the problem is that you don't need fields in rst!Fields.

However, it only displays one result of the query, when there should be four or more. Any idea on how to display the entire result? The MoveNext doesn't seem to be working.