Выборка из БД ACCESS в ADO Recordset не видит только что добавленной записи - VB

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

В одной формочке происходит добавление записи в таблицу БД ACCESS:

cn   ADODB.Connection

   PerformADOConnection(cn)

   cn.Execute  & _
               & cVariantNum &  & txtStep.text &  & cPart &  & cWork_code &  & cRM_code &  & cRoutingID & 

В модуле процедурка обновляет MSFlexGrid сразу после добвления новой записи:

DrawNewRoute(cn  ADODB.Connection, frmName  Form)
   
    str_sql  
    rst  ADODB.Recordset
    rst =  ADODB.Recordset
          
    CloseADOConnection(cn)
    PerformADOConnection(cn)
    
   str_sql = 
             
   rst. str_sql, cn, adOpenDynamic, adLockReadOnly, adCmdText
   rst.Requery

   rst.MoveLast
   rst.MoveFirst

   MsgBox rst.RecordCount

Суть в том, что при добавлении в таблицу с тремя записями четвертой, rst.RecordCount все равно равен 3. Однако, если скопировать текст запроса обновления (str_sql) в буфер, потом запустить в ACCESS`e, сразу после добавления, то возвращается верное число записей, т.е. 4.

Решение задачи: «Выборка из БД ACCESS в ADO Recordset не видит только что добавленной записи»

textual
                            Листинг программы 
                        
                            cn.Execute <font color="teal">"INSERT ..."</font>
      
   <font color="blue">Dim</font> str_sql <font color="blue">As</font> <font color="blue">String</font>
   <font color="blue">Dim</font> rst <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
       
   str_sql = <font color="teal">"SELECT ..."</font>
                                          
   rst.CursorLocation = adUseClient
   rst.<font color="blue">Open</font> str_sql, cn, adOpenStatic, adLockReadOnly, adCmdText
       
       rst.MoveLast
       rst.MoveFirst
       
    MsgBox rst.RecordCount