كيف أظهر رسالة في حالة غياب قيم من قاعدة البيانات؟

لدي تطبيق على Vb.net و أريد تفقد البيانات الموجودة في قاعدة البيانات اعتمادا على قيمة مدخلة في حقل نصي، على أن تظهر رسالة في حالة عدم وجود بيانات، وهذا نتيجة محاولتي:

Dim reader As MySqlDataReader
    Try
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If

        Dim query As String
        query = "SELECT * FROM member WHERE (memor = '" & memor.Text & "')"

        sqlcom = New MySqlCommand(query, conn)
        reader = sqlcom.ExecuteReader
        While reader.Read()
            Me.lblname.Text = reader("membname").ToString
            Me.txtmembtype.Text = reader("membtype").ToString
            Me.lblmembdate.Text = reader("membdate").ToString
        End While

        conn.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        conn.Dispose()
    End Try

كيف أُظهر رسالة في حالة عدم وجود قيم ؟