Is it possible to import a comma separated text file without using similar code to this:

Do While Not EOF(1)
Line Input #1, s
Input #1 strPRODUCT
With rsDGMain
.AddNew
.Fields("PRODUCT") = strPRODUCT
.Update
End With
Loop