For i = 0 To RS.Fields.Count – 1br /ThisWorkbook.Worksheets(“Sheet2”).Cells(6, i + 1) = RS.Fields(i).Namebr /Next i

Leave a Reply