Kod:
'referans 2003
'kodları çalıştırmadan bu referansı eklemelisiniz
'microsoft activex data object 2.1 library - adodb.connection
References.AddFromFile ("c:\Program files\common files\system\ado\msado21.tlb")Kod:
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim zsayi As Integer
Public Sub aaa()
zsayi = 10
rs.Open "tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To zsayi Step 1
rs.AddNew
rs("alan1") = "a"
rs("alan2") = "b"
rs.Update
Next i
Set rs = Nothing
End Sub