Excel VBA将参数传递到OLEDBConnection

在Excel工作簿中,我有几个到SQL Server数据库的连接。我以为我可以运行一个像下面这样的小脚本,但它不是我想要的。我想刷新OLEDB连接,并传入StartDate和EndDate,但它实际上并没有与连接通信。

Sub RefreshWithDates()

Dim StartDate As Date
Dim EndDate As Date

StartDate = Sheets("Pivot_Summary").Range("B1").Value
EndDate = Sheets("Pivot_Summary").Range("B2").Value

    With ActiveWorkbook.Connections("FMDDATA_HIST_SPLIT").OLEDBConnection
        .CommandText = "SELECT * FROM RECONCILIATION.dbo.TBL_FMDDATA_HIST_SPLIT Where AsOfDate between '" & StartDate & "' & " And " & '" & EndDate & "'"
        ActiveWorkbook.Connections("FMDDATA_HIST_SPLIT").Refresh
    End With

End Sub