스프레드에 rs.EOF로 쿼리 받아와서 뿌리는 코드

Private Sub FillspdMain()
    Dim rs As ADODB.Recordset
    Dim sSQL As String
    Dim i As Long

    On Error GoTo ERRHANDLER

    m_bLoading = True

    If ConnectDB = False Then Exit Sub

    sSQL = ""
    sSQL = sSQL & "SELECT SUBSTRING(D.StockDate ,1,4) +'-'+ SUBSTRING(D.StockDate ,5,2) +'-'+ SUBSTRING(D.StockDate ,7,2) AS StockDate

    Set rs = New ADODB.Recordset
    rs.Open sSQL, g_adoCon, adOpenForwardOnly, adLockReadOnly

    spdMain.Redraw = False
    spdMain.MaxRows = 0
    Do Until rs.EOF
        spdMain.MaxRows = spdMain.MaxRows + 1

'        Call Gf_SetSpdValue(spdMain, spdMianOrderID, spdMain.MaxRows, CheckNull(rs!OrderID))

        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing

    If DisConnectDB = False Then Exit Sub

    spdMain.Redraw = True
    m_bLoading = False

    Exit Sub
ERRHANDLER:
    Call ErrorBox(Err.Number, "FillspdMain", Err.Description)
End Sub