Public Class form_login

    Dim conni As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\..\HotelSystem.mdb;")

    Private Sub btnLogin_Click(sender As System.Object, e As System.EventArgs) Handles btnLogin.Click

        conni.Open()
        Dim login As New OleDb.OleDbCommand("SELECT Username, Password FROM Users WHERE Username = " & txtUser.Text & " AND Password = " & txtPassu.Text)
        Dim riideri As OleDb.OleDbDataReader = login.ExecuteReader

        If riideri.Read Then
            form_main.Show()
        Else
            btnLogin.BackColor = Color.Red
        End If

        conni.Close()


    End Sub
End Class