Set oRs = oCn.Execute("SET NOCOUNT ON;INSERT INTO Products (ProductName) VALUES ('Chalk');SELECT IDENTITY")
lProductID = oRs(0)
Set oRs = oCn.Execute("SET NOCOUNT ON;INSERT INTO Products (ProductName) VALUES ('Chalk');SELECT IDENTITY")
lProductID = oRs(0)