did you change the command type?

Code:
TheRS.Open SQLStr, TheConn, adOpenKeyset, adLockPessimistic, adCmdTable
When you changed it to a select, it no longer becomes a table... but text..
Code:
TheRS.Open SQLStr, TheConn, adOpenKeyset, adLockPessimistic, adCmdText
-tg