dim rs
set rs = server.createobject("adodb.recordset")
rs.open "select * from table", c, adOpenKeySet, adLockOptimistic
rs.AddNew
rs("field1") = value1
rs("field2") = value2
rs.Update
idOfAddedRecord = rs("autonumber")