表单button中的VBA查询刷新代码：查询不正确刷新

我有一个excel表单上有一个button。 其意图是，点击button时，刷新SQL查询，计算时间和date，并将其存储在隐藏工作表上，并使用隐藏工作表中的时间和date更新button标签（使button始终显示上次刷新的date和时间）。

这是我写的代码….

Private Sub CheckTBsQueryRefreshBtn_Click() Dim LastRf CheckTBsQueryRefreshLbl.Caption = ("Getting Data") ActiveWorkbook.Connections("CheckTbs").Refresh LastRf = ("Last Refreshed: ") & Now Sheet47.Range("CheckTBsLbl").Value = LastRf CheckTBsQueryRefreshLbl.Caption = LastRf End Sub 

我发现，点击button时，我得到“连接到数据源”，然后“运行后台查询….”旋转地球仪 – 但是，查询实际上并没有刷新…..地球不断旋转，查询将只能完成，如果我closures表格。

我从代码中遗漏了什么？