Здравствуйте уважаемые форумчане!
Не знаю как прикрутить Прогресс бар к открытию формы (БД с Прогресс Бар-ом прилагается) или можете предложить свой вариант прогресс бара.
Есть форма где выбираются параметры с кнопкой для отображения результата
Код кнопки:

[VB]Private Sub btn_Show_Results_Click()
     If IsNull(Me![DtFrom]) Then
        Call langMsgBox("msgFromDate", vbExclamation, "msgSelectDate")
     Else
  
      If IsNull(Me![DtTo]) Then
        Call langMsgBox("msgToDate", vbExclamation, "msgSelectDate")
       Else
         
         DoCmd.OpenQuery "qry_tbl_PersentDataSelect"
         Me.Visible = False

         DoCmd.OpenForm "frm_Persent_View"
 
     End If
   End If
End Sub[/VB] 

При нажатии на кнопку открывается форма с четырьмя вкладками с формами источником записей для которых служит четыре запроса которые долго открываются, так как основной интерфейс аксесса у меня скрыт при открытии формы не понятно завис компьютер или процесс идет.
Помогите разобраться пожалуйста.
P.S. Заранее благодарю.

http://www.sql.ru/forum/1169027/progress-bar-pri-otkrytii-formy