Send message to user if Where clause is not found in DataReader (solved)

How do I catch and send a message to the user if the text entered in the Where clause is not found among the records in the data reader?

VB Code:

Try
    cnn.ConnectionString = (.........)
    cnn.Open()
    cmd = cnn.CreateCommand
    cmd.CommandText = "SELECT Phase FROM JCPM WHERE VbPhase=" _
            & "'" & txtPC.Text & "'"
    dr = cmd.ExecuteReader
        While dr.Read()
            txtPhaseCode.Text = dr("Phase")
        End While
        dr.Close()
        cnn.Close()
Catch ex As Exception
    MsgBox("Error: " & ex.Source & ": " & ex.Message, _
            MsgBoxStyle.OKOnly, "Job Name Error")
End Try

one way is that if a record is not found from the where clause then there won't be any so you can put the if dr.hasrows like i did below

Code:

---

Try
        cnn.ConnectionString = (.........)
        cnn.Open()
        cmd = cnn.CreateCommand
        cmd.CommandText = "SELECT Phase FROM JCPM WHERE VbPhase=" _
                & "'" & txtPC.Text & "'"
        dr = cmd.ExecuteReader
if dr.hasrows then
              While dr.Read()
                txtPhaseCode.Text = dr("Phase")
              End While
else
  'code if doesn't find anything
end if
              dr.Close()
              cnn.Close()
Catch ex As Exception
        MsgBox("Error: " & ex.Source & ": " & ex.Message, _
                MsgBoxStyle.OKOnly, "Job Name Error")
End Try

---

If you are only returning one result from one field like that then it is more efficent to use ExecuteScalar instead of ExecuteReader:

VB Code:

Try
    cnn.ConnectionString = (.........)
    cmd = cnn.CreateCommand
    cmd.CommandText = "SELECT Phase FROM JCPM WHERE VbPhase=" _
            & "'" & txtPC.Text & "'"
    cnn.Open()
    Dim results As Object = cmd.ExecuteScalar
    cnn.Close()
        If result Is Nothing Then
                        MsgBox("No records matched your query!")
                Else
                        txtPhaseCode.Text = result
                End If
Catch ex As Exception
    MsgBox("Error: " & ex.Source & ": " & ex.Message, _
            MsgBoxStyle.OKOnly, "Job Name Error")
End Try

Got it now. Once again I thank you for the help/