Kod:
Private Sub Komut0_Click()
Dim Text
Dim rst As Recordset
Dim strSQL As String
strSQL = "SELECT * FROM Tablo1"
Set rst = CurrentDb.OpenRecordset(strSQL)
Open "C:\Documents and Settings\Administrator\Desktop\örnek.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Text
On Error Resume Next
rst.AddNew
rst("numara") = Trim(Mid(Text, 1, 3))
rst("ad") = Trim(Mid(Text, 5, 5))
rst.Update
Loop
Close #1
End Sub