Linking to TXT files and creating the fields

[Quigger]

I am trying to link a txt file (which is in a CSV format) to my database, and then create the fields needed. There are only three needed:
second field - user
third field - date
fourth field - time
all the users are defaulted.

I get the error stating that the fields are not defined, and I'm not sure the file is even linking.
Any help would be greatly appreciated!

Private Function dbOpen()
Dim db As Database, tdf As TableDef
Dim strfile, strfolder As String
Dim fdt As String

Set db = CurrentDb

fdt = Format(Date, "yymm&quot
strfolder = "\\xorl001\groups\esd\fleet_mon_diag\tools\pdcdb\data\rdsct\"
strfile = "in" & fdt & ".txt"

Set tdf = db.CreateTableDef(strfile)

tdf.Connect = "text;" & strfolder

db.TableDefs.Append tdf
RefreshDatabaseWindow

End Function

 

[SBendBuckeye]

Are your field names included as column headers in row 1 of your text file? Hope this helps and Good Luck!