Проблема с INSERTв базу ACCESS - VB

Формулировка задачи:

Я работаю с базой ACCESS из VB6 . В базе есть таблица tUser c полем UserID типа AutoNumber и таблица tTest также с c полем UserID типа Number. Я пишу ( схематично):

conn.BeginTrans
        source_string = " INSERT INTO tUser" & _
                        " ( LastName, FirstName) " & _
                        " VALUES ( 'aaa', 'bbb')   "
        cmd.Execute
        source_string = " SELECT MAX(UserD) FROM tUser "
        Call OpenTable(rst, source_string)
        iUserID = rst.Fields(0)
        rst.Close
сonn.CommitTrans

иногда

обнаруживаю, что UserID не увеличился после INSERT, т.е. INSERT в этой транзакции не произошел. Как с этим бороться ?

Решение задачи: «Проблема с INSERTв базу ACCESS»

textual
                            Листинг программы 
                        

                                    source_string = " INSERT INTO tUser" & _
                        " ( LastName, FirstName) " & _
                        " VALUES ( 'aaa', 'bbb')   "
        cmd.Execute (source_string)
        source_string = " SELECT MAX(UserD) FROM tUser where LastName='aaa' and FirstName='bbb' "
        set rst = cmd.Execute (source_string)
        iUserID = rst.Fields(0)
        rst.Close
                        