[dba-SQLServer] Walk through the controls on a given form

I'm asking here because I need this to be ADO code not DAO. I already 
have a For Each loop that walks all the forms in an ADP. Now I want to 
add to this a call to a sub that walks the collection of controls on the 
given form and looks at combos and listboxes, printing their rowsource. 
Anybody got a chunk of code like that?

TIA,
Arthur