Проблема при программной работе с Ms Access - VB

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

Необходимо решить следующую задачу.

Дано:

база данных Ms Access, таблицы.

Необходимо:

программно открывать базу и таблицы и автоматически заполнять таблицы данными.

Проблема:

у меня получилось сделать это через программное нажатие клавиш (эмуляция работы клавиатуры: keybd_event). Скорость слишком мала для работы с большим объемом данных!!! При выполнении программы нельзя работать с другими приложениями, т.к. если сбивается фокус, то сбивается работа программы!!!

Вопросы:

№ 1.

Как ускорить процесс???

№ 2.

Как запускать программу так, чтобы другие приложения были доступны без ущерба для работы программы (фоновый режим или как-нибудь через сообщения между программой и системой)???

№ 3.

Может, следует поменять принцип работы программы???

Заранее благодарен!!!

Решение задачи: «Проблема при программной работе с Ms Access»

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

                            Public Function Delirium()
<br>    Dim app <font color="blue">As</font> Access.Application
<br>    <font color="blue">Set</font> app = New Access.Application
<br>    app.OpenCurrentDatabase <b><font color="green">"C:\db1.mdb"</font></b>, False
<br>    app.DoCmd.OpenForm <b><font color="green">"Форма1"</font></b>, acNormal
<br>    
<br>    Dim frm <font color="blue">As</font> Form
<br>    <font color="blue">Set</font> frm = app.Forms(<b><font color="green">"Форма1"</font></b>)
<br>    frm.SetFocus
<br>    Do Until False
<br>        app.DoCmd.GoToRecord acActiveDataObject, , acNewRec
<br>        frm![Поле0] = <b><font color="green">"aaaa"</font></b>
<br>        frm![Поле1] = <b><font color="green">"bbb"</font></b>
<br>        frm.Dirty = False
<br>    Loop
<br>    app.Quit
<br><font color="blue">End</font> Function
                        