После вставки записи, рекордсет ее не видит - VB

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

Может кто сталкивался. Полазил по форуму и че-то ненашел.
Проблема такая из VB соединяюсь с Accessовской базой данных с помощью JET4.0

strFileDB =  & App.Path &

Затем с помощью ADODB.Command делаю вставку в таблицу и тутже делаю выборку с помощью ADODB.RecordSet, однако моей в ставки в выборке нет. Она появится только через некоторое время или после того как я зайду в пункт меню Accessa "Записи"->"Обновить"
МОЖЕТ КАК-НИБУДЬ ПРОГРАММНО МОЖНО ОБНОВИТЬ ЗАПИСИ?
Вот кусок кода

Command2_Click()
doCMD.CommandText = 
doCMD.Execute

 rstTemp   ADODB.Recordset
rstTemp.ActiveConnection = strFileDB
rstTemp.CursorLocation = adUseClient
rstTemp.Source = 
rstTemp.
MsgBox rstTemp.RecordCount
rstTemp.

 

RecordSet должен быть у клиента. Т.к. в таблице много записей.

Решение задачи: «После вставки записи, рекордсет ее не видит»

textual
                            Листинг программы 
                        
                            ConnectionCMD.Properties(<font color="teal">"Jet OLEDB:Implicit Commit Sync"</font>) = True