以同樣的條件做測試
為什麼第二筆，後面欄位的資訊都跑不完整，都是空白呈現???

Sub sql_kintone_NS()
    Dim conn As Object
    Dim Dbtype As String
    Dim ws As Worksheet
    Dim PRD_NAME As Range
    Dim i As Integer
    
    Dbtype = "Access"
'資料庫連線設定
    Set conn = connectSQL(Dbtype)

'檢查連線是否成功
    If conn.State = 1 Then
        Debug.Print "Connected to database"
        
        ' 創建記錄集對象
        Dim rs As Object
        Set rs = CreateObject("ADODB.Recordset")
        
        ' 將查詢結果存入到Excel工作表中（假設結果存入 ）
        Set ws = ThisWorkbook.Sheets("製品建檔登入申請")         'ws把SQL資料抓下來存放的sheet
        Debug.Print "開始:" & Now
'------------查詢數個 FOR EACH------------------
        
        For i = 6 To 工作表2.Range("C11").End(xlUp).Row
            Debug.Print 工作表2.Range("C11").End(xlUp).Row
            
            Set PRD_NAME = ws.Cells(i, 3) ' C列第i行
            Debug.Print PRD_NAME

                            ' 定義SQL查詢 Q_CreateInfo_master_kintone  : kintone kintone kintone 建檔資訊
                            Dim strSQL As String
                            strSQL = "SELECT Q_CreateInfo_master_kinton_NS.*  FROM Q_CreateInfo_master_kinton_NS WHERE (((Q_CreateInfo_master_kinton_NS.產品名稱)='" & PRD_NAME & "'));"
                            Debug.Print strSQL
                                    
                            ' 執行查詢
                            rs.Open strSQL, conn
                            
                            '(表頭) 欄位名稱 第一行
                            'For Column = 1 To rs.Fields.Count  'rs.Fields.Count
                            '    ws.Cells(25, Column).Value = rs.Fields(Column - 1).Name
                            'Next Column
                            
                            ' (表身) 查詢結果(欄位值) 入工作表
                            For j = 1 To rs.Fields.Count
                                    recordValues = rs.Fields(j - 1).Name & "=" & rs.Fields(j - 1).Value & ", "
                                    Debug.Print j, rs.Fields.Count, rs.Fields(j - 1).Value
                            Next j
                            
                            If Not rs.EOF Then
                                ws.Cells(i + 20, 1).CopyFromRecordset rs
                             End If
                            ' 關閉資料集
                            rs.Close
            Next i
        
        Debug.Print "結束:" & Now
    Else
        Debug.Print "Failed to connect to database"
    End If
    
    conn.Close
    Set conn = Nothing

End Sub