关于窗体中使用进度条速度与后台运行的查询速度同步的问题：

yanwei82123300

关于窗体中使用进度条的问题：
各位老师我想在窗体中加入“进度条”控件，窗体添加一个命令—>点击后里面全部是查询，请问如何才能关连好与进度条的速度匹配好呢？谢谢

Private Sub Command1_Click()
    Const J As Integer = 10000
    Dim I As Integer
   
       me.ProgressBar3.Max = J
        me.ProgressBar3.Value = 0
       me.ProgressBar3.Visible = True
        For I = 1 To J
DoCmd.OpenQuery "a查询名"
DoCmd.OpenQuery "b查询名"
DoCmd.OpenQuery "c查询名"
DoCmd.OpenQuery "d查询名"
DoCmd.OpenQuery "e查询名"
DoCmd.OpenQuery "f查询名"
DoCmd.OpenQuery "g查询名"
            me.ProgressBar3.Value = I
        Next
        me.ProgressBar3.Visible = False
   

End Sub