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