Как проверить, есть ли данный пользователь в БД MySQL?

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Авторизация" 'название окна программы
        Button1.Text = "Войти" 'название кнопки
        Button2.Text = "Выход" 'название кнопки
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close() 'выход по нажатию кнопки "Выход"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LogAndPass\LogAndPass\Hm.mdb" 'объявляем переменную, которая содержит строку(и путь) подключения к БД
        Dim con As New OleDb.OleDbConnection(conString) 'объявляем переменную, как подключение к БД, которая содержит строку подключения от переменной conString
        Dim command As New OleDb.OleDbCommand("SELECT * FROM [MyDB] WHERE ([Логин] = '" + TextBox1.Text + "') AND ([Пароль] = '" + TextBox2.Text + "')", con) 'объявляем переменную, которая говорит БД как ей нужно построится (по фильтру/без). Аналогично SelectQuery
        Dim login As String 'переменная в которую будем помещать логин
        Dim pass As String ' переменная в которую будем помещать пароль
        If Len(TextBox1.Text) < 3 And Len(TextBox2.Text) < 3 Then 'проверка длинны введенных символов(по сути не обязательно, но мало ли надо)
            MsgBox("Логин/пароль не может быть короче 3(трех) символов!!!") 'вывод сообщения
        Else 'если условие соблюдено пытаемся найти в БД введенные данные в Текст Боксы!
            Try 'теперь пытаемся загрузить подкючение по переменной "con" и прочитать БД
                con.Open() 'открываем строку полючения БД
                Dim DataReader As OleDb.OleDbDataReader = command.ExecuteReader 'объявляем переменную содержащую команду чтения БД
                DataReader.Read() 'читаем БД
                login = DataReader("Логин").ToString 'помещаем в переменную login значение 1-ой строки (отфильтрованной или нет) по названию столбца!
                pass = DataReader("Пароль").ToString 'аналогичное действие, как и в предыдущей строке
                If TextBox1.Text = login.ToString And TextBox2.Text = pass.ToString Then 'проверям соответсвует ли введенный текст (логин/пасс) юзером с тем, что хранится в БД!
                    MsgBox("Логин/пароль совпадают!!!")
                Else
                    MsgBox("Сочетания логина/пароля не найдены!")
                End If
            Catch ex As Exception
 
            End Try
        End If
    End Sub