login

        konek.Open()
        command.Connection = konek
        command.CommandType = CommandType.Text
        command.CommandText = "select * from tb_admin where username = '" & username.text & "' and password = PASSWORD('" & password.text & "')"
        dread = command.ExecuteReader
        If dread.Read Then
            action.show()
        Else
            mCritical("Kombinasi nama pengguna dan kata sandi tidak tepat.", "")
        End If
        konek.Close()