เรียนอาจารย์ทุกท่าน   
     ช่วยตรวจให้ผมด้วยนะครับ
คุณเสนห์
     ผมมือใหม่นะครับ ไม่รู้ว่าแบบนี้ได้หรือเปล่า
     ผมลองทำดูครับ ตามความเข้าใจ ที่ได้ศึกษามาในเวปนี้นะครับ ถ้าผิดพลาดอะไรของโทษด้วยครับ

Option Compare Database

Private Sub Command0_Click()
Dim db As Database
Dim rs As DAO.Recordset
Dim Y, vTmp As Variant
Dim sFileImport As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table1")

sFileImport = "C:\test.txt"
If Dir(sFileImport) = "" Then MsgBox "NO DATA": Exit Sub
Open sFileImport For Input As #1
    Do While Not EOF(1)
          Line Input #1, Y
        vTmp = Split(Y, "@")
If Left(Y, 1) = "F" Or Y = "" Then ' บรรทัดนี้ไม่แน่ใจว่าข้อมูลของคุณต้องแยกยังไง
Else
rs.AddNew
   rs.Fields(0) = vTmp(0)
   rs.Fields(1) = vTmp(1)
   rs.Fields(2) = vTmp(2)
   rs.Fields(3) = vTmp(3)
   rs.Fields(4) = vTmp(5)
   rs.Fields(5) = vTmp(5)
   rs.Update

End If
Loop
Close #1
MsgBox "OK"
End Sub

หรือถ้า ข้อมูลที่ต้องการ ช่องแรกเป็นตัวเลข ลองใช้แบบนี้ดูครับ
Option Compare Database

Private Sub Command0_Click()
Dim db As Database
Dim rs As DAO.Recordset
Dim Y, vTmp As Variant
Dim sFileImport As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table1")

sFileImport = "C:\test.txt"
If Dir(sFileImport) = "" Then MsgBox "NO DATA": Exit Sub
Open sFileImport For Input As #1
    Do While Not EOF(1)
          Line Input #1, Y
        vTmp = Split(Y, "@")
If Y = "" Then Exit Sub
If IsNumeric(vTmp(0)) Then
rs.AddNew
   rs.Fields(0) = vTmp(0)
   rs.Fields(1) = vTmp(1)
   rs.Fields(2) = vTmp(2)
   rs.Fields(3) = vTmp(3)
   rs.Fields(4) = vTmp(5)
   rs.Fields(5) = vTmp(5)
   rs.Update
Else

End If
Loop
Close #1
MsgBox "OK"
End Sub