Tanto per non essere da meno la butto lì anch'io.
prova a mettere
Dim ObjRS, StrSql, ObjConn