First of all, you are opening it wrong
Open PathFileName For Binary As #FileNum
should be
Open PathFileName For Input As #FileNum
Second, once you do that you don't need to split it to lines as it will do so and you would use
Code:
Dim strHold As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim varSplit As Variant
Dim intCount As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("yourTableNameToSendDataTo")
With rst
Do Until EOF(FileNum)
Input FileNum, strHold
varSplit = Split(strHold, "|")
.AddNew
For intCount = 0 to UBound(varSplit)
.Fields(intCount) = varSplit(0)
Next
.Update
Loop
rst.Close
Set rst = Nothing