Oh no...it's late Friday afternoon
Forget what I posted. I read too fast.
n1a2v3i3n, you cannot close the recordset connection when showing the Report unless you use a local cursor. See if this works:
Adodc1.CursorLocation=adUseClient
Adodc1.Open st, str, adOpenStatic, adLockOptimistic
Set...