Private Sub Komut708_Click()
Dim btn As Object
WebBrowser0.Document.getElementById("prmHizmetNo").Value = Me.Metin705
WebBrowser0.Document.getElementById("tcKimlikNo").Value = Me.tcno
For Each btn In WebBrowser0.Document.all.tags("Input")
If btn.Value = "SORGULA" Then
btn.Click
End If
Next btn
End Sub
Ayrıca kod sayfasındaki hataları düzeltmelisin.
Option Compare Database kodunun en üstte olması lazım, siz altta biryerlere yazmışsınız, kodlarda hatalar var.