Şurda güzel bir paylaşım var
******************

---

İlgilenenler şurayada bakabilir
******************

---

[vb]Option Compare Database
Option Explicit

Private Sub Command0_Click()
    Dim rs As Recordset: Set rs = CurrentDb.OpenRecordset("table_name")
    Dim line As Variant
   
    For Each line In GetFileLines("file_address", True, True, False)
        ' Code depends on format of file.
        ' Example
        rs.AddNew
            rs!Field = Split(line, ",")(0)