bu nedenle 100 sefer ado recordset tanımlıyor ve açıyorsun ama bu arada da hiç kapatmıyorsun.
Kod:
For k = 1 To 100
strSQL = "SELECT * T_VERITABLOSU"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
...
Next