insert into tb1 (xxx) values(xxx);
insert into tb2 (xxx) values(xxx);
create procedure p()
BEGIN
insert into 表A values();
insert into 表B values();
END
call p;
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 表1,表2 "
rs.open sql,conn,1,3
rs(" 源")=列