From another EE expert:
Private Sub Command0_Click()
Dim intFilenum As Integer 'watch shows value 1--type interger--always 1
Dim intField As Integer 'watch shows as expected
Dim varArray(0 To 1434) As Variant 'watch shows as expected
intFilenum = FreeFile 'watch shows value 2 --type integer-- always 2
Open "c:\rTemp\aqu0207k\aqu0207.drf" For Input As #intFilenum
Do Until EOF(intFilenum)
For intField = 0 To 1434
Input #intFilenum, varArray(intField)
'This is where you open your tables or invoke your queries to insert your data
Doing it this way means that the text fields will be stripped of their quote delimiters
automatically by the Input statement. I used a zero-origin array for two reasons...
1. it is what the SPLIT() function would produce
2. a recordset's fields collection is zero-based
I follow some of the code.
What does freefile mean? Why this assignment intFilenum = FreeFile ?
Where are the rows? There should be 70 rows.