Wednesday, November 05, 2008

Code to display header from Database

For i = 0 To RS.Fields.Count - 1
ThisWorkbook.Worksheets("Sheet2").Cells(6, i + 1) = RS.Fields(i).Name
Next i
Posted by JK at 4:00 PM

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)