表单按钮中的VBA查询刷新代码：查询未正确刷新

Question

我在excel中有一个表单，上面有一个按钮。目的是，当单击按钮时，将刷新SQL查询，计算时间和日期并将其存储在隐藏工作表中，并使用隐藏工作表中的时间和日期更新按钮标签（以便始终使用按钮）显示上次刷新的日期和时间。

这是我写的代码......

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

我发现，当点击按钮时，我会使用旋转的地球仪“连接到数据源”，然后“运行后台查询......”，但查询实际上并未刷新.. ...地球一直在旋转，只有关闭表格才能完成查询。

我错过了代码中的内容吗？