下面是个例子,先插数据,在检索最新的ID
SQL = "SET NOCOUNT ON insert into Sys_Reg(Name,Pathid,Publish) Values('"&sys_name&"',"®_id&","&Publish&") SELECT @@IDENTITY AS NewID"
Dim NewID
Set Rs = conn_system.execute(SQL)
NewID = Rs.Fields("NewID").value
rs.close
set rs=nothing