eklediğiniz dosyada nedeni alanı yada ona benzer metin alanı olmadığı için sadece nedeni alanı dışındakileri ekledim

Sub OpenTextFileTest()

    Dim result As Integer

    On Error GoTo Err



    yol = getFileName

   

        Response = MsgBox("Dosya bulundu verileri yüklemek ister misiniz?", vbYesNo, "UYARI")

        If Response = 7 Then Exit Sub

                

        Dim strTextLine As String

        Dim iFile As Integer: iFile = FreeFile

        Open yol For Input As #iFile

        Do Until EOF(1)

            Line Input #1, strTextLine

            tmpdz = Split(strTextLine)

            sonuc = tmpdz(0) & ",#" & tmpdz(1) & "#,#" & tmpdz(2) & "#"   'cihazno,sicilno,gc,gtarih,gsaati,ctarihi,csaati

            CurrentDb.Execute ("insert into tblAlınanVeriler (cihazno,sicilno,gc,gtarih,gsaati) values (" & sonuc & ") ")

        Loop

        Close #iFile

 msgbox "bitti"

Err:

If Err.Number = 62 Then

    MsgBox "Belirttiğiniz dosya boş", vbOKOnly, "UYARI"

Else

    End If

Exit Sub



Çıkış:

End Sub