'Puts the results of a SQL statement into the Excel worksheet.
'Returns row count.
'vsStartCell is a cell identifier like "A1" of the
'upper left corner of where the results should go.
' Call PutRecordsetInCells(rs, oWorksheet, "A1")
Dim i, iRowCount

For i = 0 To vrs.Fields.Count - 1

With voWorksheet.Range(vsStartCell).Offset(0, i)

.Value2 = vrs.Fields(i).Name
.Font.Bold = True
.Borders(9).LineStyle = 1 ' <-- 9 means bottom, 1 means continuous.

End With

Next

iRowCount = voWorksheet.Range(vsStartCell).Offset(1, 0).CopyFromRecordset(vrs)
PutRecordsetInCells = iRowCount