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

lProductID = oRs(0)