Userform Login Ve Yetkilendirme

Sub Label2_Click()

    Dim baglan As Object, rs As Object

    

    

    Set baglan = CreateObject("adodb.connection")

    Set rs = CreateObject("adodb.recordset")

    

    Set baglan = CreateObject("adodb.connection")

            baglan.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.accdb;Persist Security Info=False;"

    If baglan.State <> adStateClosed Then

        baglan.Close

        Exit Sub

    End If

    baglan.Open

    

    rs.Open "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "'", baglan, 1, 1

    

    If rs.RecordCount > 0 Then MsgBox "Basarili" Else MsgBox "Basarisiz"

    rs.Close

    baglan.Close

    Set rs = Nothing

    Set baglan = Nothing

End Sub