If (My.Settings.canLogin = False) Then
            MsgBox("System is disabled!")

        Else
            Dim myReader As MySql.Data.MySqlClient.MySqlDataReader
            Dim constring, query As String
            constring = "server=127.0.0.1;port=3306;username=root;password=hesoyam"
            query = "select * from jlb.admin where User = '" + User1.Text + "' and Password = '" + Pass1.Text + "';"
            Dim conDatabase As New MySql.Data.MySqlClient.MySqlConnection(constring)
            Dim cmdDatabase As New MySql.Data.MySqlClient.MySqlCommand(query, conDatabase)
            Dim count As Integer

            Try
                conDatabase.Open()
                myReader = cmdDatabase.ExecuteReader
                While (myReader.Read)
                    count = count + 1


                End While
                If (count = 1) Then
                    OptionsMenu.Show()
                    Me.Hide()
                Else
                    MessageBox.Show("Username or Password is incorrect")
                    If (My.Settings.Tries = 2) Then
                        User1.Enabled = False
                        Pass1.Enabled = False
                        login1.Enabled = False
                        My.Settings.canLogin = False
                        My.Settings.time = 120000
                        My.Settings.Save()
                        Timer1.Start()
                    Else
                        My.Settings.Tries = My.Settings.Tries + 1
                        My.Settings.Save()

                    End If

                End If


                    conDatabase.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If