usa questo metodo

codice:
Dim Riga As String

On Error GoTo errore
  nrFile = FreeFile
  Open fSetDir & filetoOpen For Input As #nrFile
  While Not EOF(nrFile)
    Input #nrFile, Riga
    Parsing Riga
  Wend
  Close #nrFile
Exit Sub
errore:
dove Parsing è una funzione che manipola la riga, la divide con MID e la spedisce nel DB come meglio credi.