Если вы не хотите проверять наличие ошибок, вы можете:
cmd.CommandText = "insert into MyTable values(blah, blah, blah) SELECT @@Rowcount"
cmd.CommandType = adCmdText
Set rs = cmd.Execute()
RecordsAffected = rs(0)
В том же waw, если у вас есть столбец идентификаторов, вы можете получить полученный идентификатор, используя
cmd.CommandText = "insert into MyTable values(blah, blah, blah) SELECT @@Identity"
cmd.CommandType = adCmdText
Set rs = cmd.Execute()
NewID = rs(0)