스프레드에 쿼리 바로 뿌리는 코드

Private Sub FillspdSubIn(sMOrderDate As String)
    Dim rs As ADODB.Recordset
    Dim ls_Sql  As String
    Dim sCustom As String
    
    On Error GoTo ERRHANDLER
    
    Call ClearData
    
    m_bLoading = True
    
    If ConnectDB = False Then Exit Sub
    
    ls_Sql = ""
    ls_Sql = ls_Sql & "SELECT ''AS chk, C.MaterialName" & vbCr


    
    Gf_GetSpdData spdSubIn, ls_Sql, False

    
    If DisConnectDB = False Then Exit Sub
         
    m_bLoading = False
    
    Exit Sub

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