Дело Vb.net чувствительный использованием инструментальных средств СУБД MySQL

---

Привет я новичок здесь просто хочу обратиться за помощью по моему проекту мне нужна моя форма входа чтобы принять только то что пользователи зарегистрировали учетные данные и да они могут войти используя там учетные данные но дело в том что даже если пароль написан прописными буквами пользователь может получить доступ к нему только с помощью строчной буквы пожалуйста помогите ТИА

Что я уже пробовал:

вот мой код

Imports MySql.Data.MySqlClient

Public Class Login
    Private Sub Login_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        End
    End Sub
    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtuser.Select()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnlogin.Click
        Try
            DbOpen()
            Dim query = "Select * from login where Username= '" & txtuser.Text & "' AND Password = '" & txtpass.Text & "'"
            Dim cm As New MySqlCommand(query, cn)
            Dim reader = cm.ExecuteReader
            If reader.Read Then
                'login success

                Dim role = reader("Userlevel").ToString
                Dim name = reader("Name").ToString
                reader.Close()
                If role = "ADMIN" Then

                    Audit(role, name, "Login Success")
                    MsgBox("Welcome Admin", vbInformation, "System Message.")
                    Me.Dispose()


                    Panels.ShowDialog()

                    txtuser.Clear()
                    txtpass.Clear()
                    role = ""
                ElseIf role = "STAFF" Then
                    Audit(role, name, "Views the menu")
                    MsgBox("Welcome Staff!", vbInformation, "System Message.")
                    Me.Dispose()



                    staff.ShowDialog()

                    txtuser.Clear()
                    txtpass.Clear()
                    role = ""




                End If
            Else
                'login failed
                MsgBox("Invalid Password! Try Again.", vbInformation, "System Message")
                txtuser.Clear()
                txtpass.Clear()
            End If
            txtuser.Select()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            DbClose()
        End Try
        ' POS.Timer1.Start()
        'POS.lbltime.Text = Date.Now.ToString("hh:mm:ss tt")
        'POS.lbldate.Text = Date.Now.ToString("MM/dd/yyyy")


    End Sub

---