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