create procedure test 
as
  ...
  Select * from tableName
godim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "..."
rs.open "exec test",cn,...