Sub baglan()

        baglanti = CreateObject("adodb.connection")

        baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")

    End Sub

Sub giris()

        Me.ComboBox3.SelectedIndex = Now.Month - 2

        Me.ComboBox2.SelectedIndex = 7

        Dim adres As String

        adres = "https://ebildirge.ssk.gov.tr/WPEB/amp/loginldap?j_username=" & TextBox1.Text & "&isyeri_kod=" & TextBox2.Text & "&j_password=" & TextBox3.Text & "&isyeri_sifre=" & TextBox4.Text

        WebBrowser1.Navigate(adres)

    End Sub

' ComboBox1 den mükelef seçilince hem textboxlara veri getirir hemde otomatik giriş yapar

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim rs As Object

        Call baglan()

        rs = CreateObject("adodb.recordset")

        rs.open("select * from data where adisoyadi='" & ComboBox1.Text & "' order by adisoyadi", baglanti, 1, 1)

        If rs.recordcount = 1 Then

            TextBox1.Text = rs("sgkkullanici").value

            TextBox2.Text = rs("sgkkod").value

            TextBox3.Text = rs("sgksistemsifre").value

            TextBox4.Text = rs("sgkisyerisifre").value

            TextBox5.Text = rs("email").value

        End If

        rs.close()

        baglanti.close()

        Call giris()



    End Sub