Sub umraniye()

On Error GoTo err_

Dim A, B, C

C = convert([ILCELER], 0)

WebBrowser1.Navigate2 "http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m=UMRANIYE" & C

ProgressBar1.Visible = True

 For A = 1 To 100

 ProgressBar1.Value = A

       For B = 1 To 200000

    Next B

Next A

  ProgressBar1.Visible = False

Call aktar1

'Requery

err_:

End Sub

WebBrowser1.silent = True

Me.ProgressBar1.Visible = False

umraniye