Excel存储过程调用中的重复行

我有一个存储过程调用,它通过Excel复制行,我认为这与我用于从记录集复制的方法有关。运行查询时的数据手动输出正确的数据。

Private Sub Refresh_Click()
    Dim Conn As ADODB.Connection, RecordSet As ADODB.RecordSet

    Dim Command As ADODB.Command
    Dim ConnectionString As String, StoredProcName As String
    Dim StartDate As ADODB.Parameter, EndDate As ADODB.Parameter

    Application.ScreenUpdating = False

    Set Conn = New ADODB.Connection
    Set RecordSet = New ADODB.RecordSet
    Set Command = New ADODB.Command

    ' I blanked out the details here as they are not required as this is working
    ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=xxxx;INITIAL CATALOG=xxxx; User Id=xxxx;Password=xxxx;"

    On Error GoTo CloseConnection

    Conn.Open ConnectionString
    SellStartDate = Format(Sheets("Sheet1").Range("B2").Value2, "yyyy-mm-dd")
    SellEndDate = Format(Sheets("Sheet1").Range("B3").Value2, "yyyy-mm-dd")
    StoredProcName = "fsp_PLReportByDates"

    With Command
        .ActiveConnection = Conn
        .CommandType = adCmdStoredProc
        .CommandText = StoredProcName
    End With

    Set StartDate = Command.CreateParameter("@DateFrom", adDBDate, adParamInput, , SellStartDate)
    Set EndDate = Command.CreateParameter("@DateTo", adDBDate, adParamInput, , SellEndDate)

    Command.Parameters.Append StartDate
    Command.Parameters.Append EndDate    
    Set RecordSet = Command.Execute    

    Sheets("Sheet1").Range("A7").CopyFromRecordset RecordSet
    For intColIndex = 0 To RecordSet.Fields.Count - 1
       Range("A6").Offset(0, intColIndex).Value = RecordSet.Fields(intColIndex).Name
    Next


    RecordSet.Close
    Conn.Close
    On Error GoTo 0
    Application.ScreenUpdating = True
    Exit Sub

    CloseConnection:
     Application.ScreenUpdating = True
     MsgBox "SQL Stored Procedure Did Not Execute Sucessfully!", vbCritical, "SQL Error"
     Conn.Close

End Sub