How do I get Fields from an Excel File

I have opened Excel files as database files before,  but I used row 1 cells as the field names.

ExcelFile = "c:\Bin3\AS400FeedFormulationsDownload-6.xls"

Set db = DBEngine.Workspaces(0).OpenDatabase(ExcelFile, False, False, "Excel 8.0; HDR=YES;")
WorkSheetName = "Sheet1"
Set rs = db.OpenRecordset(WorkSheetName & "$", dbOpenTable)
Do Until rs.EOF
  With rs
    E(R, 1) = !Location


The  !Location is the "header" on column 1 , row 1.  I'm asking if column1, row1 has no text, what do I use for fields?
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

Jon_RaymondConnect With a Mentor Commented:
Have you tried rs(1), rs(2), rs(3), etc. with 1 being the first field, 2 the second, etc.
CornyAuthor Commented:
No, I haven't tried your suggestion.  I did solve my problem by putting in my headers and them making them invisible by using a font color the same and the background.  Thanks for you suggestion.
All Courses

From novice to tech pro — start learning today.