如何改写此窗体代码

窗体图片:

窗体代码如下:

Private Sub Form_Load()
    SetTranslucent Me.hwnd, 255  'from 0 to 255
    Me.点工核算份数.Caption = DLookup("点工单号之计数", "监控点工")
    Me.点工核算人工.Caption = DLookup("审核人工之总计", "监控点工")
    Me.修改核算份数.Caption = DCount("*", "监控修改单核算")
    Me.修改单核算工时.Caption = DLookup("SUM([核算工时之总计])", "监控修改单核算")
    Me.修改单核算重量.Caption = DLookup("SUM([核算重量之总计])", "监控修改单核算")
    Me.修改单结算份数.Caption = DCount("*", "监控修改单结算")
    Me.修改单结算工时.Caption = DLookup("SUM([结算工时(H)之总计])", "监控修改单结算")
    Me.修改单结算重量.Caption = DLookup("SUM([结算重量(kg)之总计])", "监控修改单结算")
    Me.工艺单核算份数.Caption = DCount("*", "监控工艺单核算")
    Me.工艺单结算份数.Caption = DCount("*", "监控工艺单结算")
    Me.工艺单核算工时.Caption = DLookup("SUM([核算工时之总计])", "监控工艺单核算")
    Me.工艺单核算重量.Caption = DLookup("SUM([核算重量之总计])", "监控工艺单核算")
    Me.工艺单结算重量.Caption = DLookup("SUM([结算重量(kg)之总计])", "监控工艺单结算")
    Me.工艺单结算工时.Caption = DLookup("SUM([结算工时(H)之总计])", "监控工艺单结算")
    Me.钢构合同签订份数.Caption = DCount("*", "监控钢结构合同签订")
    Me.钢构合同签订金额.Caption = DLookup("SUM([签订款之总计])", "监控钢结构合同签订")
    Me.钢构合同结算份数.Caption = DCount("*", "监控钢结构合同结算")
    Me.钢构合同结算金额.Caption = DLookup("SUM([最终结算款之总计])", "监控钢结构合同结算")
    Me.涂装合同签订份数.Caption = DCount("*", "监控涂装合同签订")
    Me.涂装合同签订金额.Caption = DLookup("SUM([签订款之总计])", "监控涂装合同签订")
    Me.涂装合同结算份数.Caption = DCount("*", "监控涂装合同结算")
    Me.涂装合同结算金额.Caption = DLookup("SUM([最终结算款之总计])", "监控涂装合同结算")
    Me.安装合同签订份数.Caption = DCount("*", "监控安装合同签订")
    Me.安装合同签订金额.Caption = DLookup("SUM([签订款之总计])", "监控安装合同签订")
    Me.安装合同结算份数.Caption = DCount("*", "监控安装合同结算")
    Me.安装合同结算金额.Caption = DLookup("SUM([最终结算款之总计])", "监控安装合同结算")
    Me.签订份数合计.Caption = DCount("*", "监控钢结构合同签订") + DCount("*", "监控涂装合同签订") + DCount("*", "监控安装合同签订")
    Me.结算份数合计.Caption = DCount("*", "监控钢结构合同结算") + DCount("*", "监控涂装合同结算") + DCount("*", "监控安装合同结算")
    Me.合同签订金额合计.Caption = DLookup("SUM([签订款之总计])", "监控钢结构合同签订") + DLookup("SUM([签订款之总计])", "监控涂装合同签订") + DLookup("SUM([签订款之总计])", "监控安装合同签订")
    Me.合同结算金额合计.Caption = DLookup("SUM([最终结算款之总计])", "监控钢结构合同结算") + DLookup("SUM([最终结算款之总计])", "监控涂装合同结算") + DLookup("SUM([最终结算款之总计])", "监控安装合同结算")
End Sub

结果运行速度太慢了,打开窗体要1-2分钟时间,能否优化一下代码.使运行速度可以提高!!!