Dosyadaki verileri tabloya aktarma

Option Compare Database

Sub akt()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Tablo1")
Open "d:\ak.txt" For Input As #1
Do While Not EOF(1)
rst.AddNew
Input #1, ad, soyad, yaş
rst("ad").Value = ad
rst("soyad").Value = soyad
rst("yaş").Value = yaş
rst.Update
Loop
Close #1
End Sub