If Tables("表A").Compute("count(第一列)") = Tables("表A").Compute("count(第一列)", "审核 = '审核通过'") Then
Forms("窗口1").Controls("Button1").Visible = False
Else
Forms("窗口1").Controls("Button1").Visible = True
End If