VB.NET executeScalar IF условно

Question

Call con_getsetting()
    If con_open() = True Then
        Dim pass As String
        Using cmd As New SqlCommand("select pass_key from m_user where user_id='" + TextBox1.Text.Replace("'", "").Replace("--", "") + "'", con)
            pass = cmd.ExecuteScalar
            If pass <> Nothing Then
                If pass = TextBox2.Text Then
                    MessageBox.Show("Login Success!!, Go To Main Menu!", "DJIESOFT", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Me.Close()
                Else
                    counter += 1
                    If counter <> 3 Then
                        MessageBox.Show("Invalid Password")
                    Else
                        MessageBox.Show("Invalid Password" & vbNewLine & "Anda Sudah 3X Gagal melakukan Login!")
                        Me.Close()
                    End If
                End If
            Else
                counter += 1
                If counter <> 3 Then
                    MessageBox.Show("Invalid User ID")
                Else
                    MessageBox.Show("Invalid User ID" & vbNewLine & "Anda Sudah 3X Gagal melakukan Login!")
                    Me.Close()
                End If

            End If
        End Using
    End If

когда я набрал существующие данные, он показал "неверный пароль"? извините за плохой мой плохой английский. Вы знаете, как обеспечить безопасность входа в систему с помощью SQL SERVER, а язык VB.NET?