Dim rstkayit As ADODB.Recordset
Dim lR As Long
Dim lR1 As Long
Dim ObjElement As HTMLObjectElement
Set rstkayit = New ADODB.Recordset
rstkayit.Open "SELECT * FROM ogrenciler", CurrentProject.Connection, adOpenStatic, adLockOptimistic
Set ObjElement = WebBrowser1.Document.all().tags("table").Item(35)
lR = ObjElement.rows.length - 1
For lR1 = 1 To lR
With rstkayit
.AddNew
.Fields("tckimlik") = ObjElement.rows(lR1).cells(1).innerText
.Fields("adı") = ObjElement.rows(lR1).cells(2).innerText
.Fields("soyadı") = ObjElement.rows(lR1).cells(3).innerText
.Fields("okulno") = ObjElement.rows(lR1).cells(4).innerText
.Fields("sınıfı") = ObjElement.rows(lR1).cells(5).innerText
.Fields("durumu") = ObjElement.rows(lR1).cells(6).innerText
.Fields("kurumkodu") = Mid(Right(WebBrowser1.Document.all.Item("IOMPageHeader1_lblKurumIlIlce").innerText, 8), 1, 6)
.Update
End With
Next lR1

ben bu şekilde öğrenci listelerini alıyorum ancak toplu not veren Html sayfası varsa bu işe yarar kodun çalışabilmesi için referanslardan microsoft Html object seçmen gerekiyor