procedure proc( StartDate in date, StopDate in date, rc out sin_globals.t_refcur) is....
............
begin
open rc for 'select * from #table';
end;

con.Provider = "MSDAORA"
con.Properties("Data Source").Value = "dataSRC"
con.Properties("User ID").Value = "user"
con.Properties("Password").Value = "pass"
con.Open

Set cmd.ActiveConnection = con
cmd.Parameters.Append cmd.CreateParameter("StartDate", adDate, , , D1)
cmd.Parameters.Append cmd.CreateParameter("StopDate", adDate, , , D2)
cmd.CommandTimeout =  0 
cmd.CommandType = adCmdText
cmd.CommandText = "call proc(?,?)"
Set rs = cmd.Execute