Merhaba, butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz

On Error Resume Next

Dim Secenek As Object

Dim SatirSayisi, SatirNo As Integer



Dim rs As New ADODB.Recordset

rs.Open "TabloOkulTuru", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



	For Each Secenek In Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")

		SatirSayisi = Secenek.length

	Next



	For SatirNo = 0 To SatirSayisi - 1



		rs.AddNew



		rs("OkulAdi") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).innertext

		rs("TurKodu") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value

		rs.Update

	Next



MsgBox ("islem Tamam")



rs.Close

Set rs = Nothing