How to display error message when record not found in VB.Net

Hi Andrea i am converting binary data to pdf file when i use this its not working properly 

Please refer below article

Show Alert Message in ASP.Net from Server Side using C# and VB.Net

Hi Shashikant i updated the code with Try Catch but donno the error message showing all the time even when i enter the valid date can tell me what i need to change

 Private Sub btnIn_Click(sender As Object, e As EventArgs) Handles btnIn.Click
  Try
            Dim Date = txtDate.Text

            Dim pdf As Byte()
            Dim ID As String
            Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
            Using con As New SqlConnection(constr)
                Using cmd As New SqlCommand()
                    cmd.CommandText = "SELECT Id, BinaryData FROM dbo.Reports WHERE date=@Date "
 cmd.Parameters.AddWithValue("@Date ", Date)
                    cmd.Connection = con
                    con.Open()
                    Using sdr As SqlDataReader = cmd.ExecuteReader()
                sdr.Read()
                        pdf = DirectCast(sdr("BinaryData"), Byte())
                      ID = sdr("RunId").ToString()
             End Using
                    con.Close()
                End Using
            End Using
            Response.Clear()
            Response.ContentType = "application/pdf"
            Response.AppendHeader("Content-Disposition", Convert.ToString("attachment; filename=InvoiceReport.pdf"))
            Response.BufferOutput = True
          Response.BinaryWrite(pdf)
            Response.[End]()
        Catch ex As Exception
            lblError.Text = "Record not found, Please Select the correct date"
            lblError.Visible = True
        End Try
    End Sub

Please refer below code.

VB

Private Sub btnIn_Click(sender As Object, e As EventArgs)
    Try
        Dim Date = txtDate.Text
        Dim pdf As Byte()
        Dim ID As String
        Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand()
                cmd.CommandText = "SELECT Id, BinaryData FROM dbo.Reports WHERE date=@Date "
                cmd.Parameters.AddWithValue("@Date ",Convert.ToDateTime(Date))
                cmd.Connection = con
                con.Open()
                Using sdr As SqlDataReader = cmd.ExecuteReader()
                    sdr.Read()
                    pdf = DirectCast(sdr("BinaryData"), Byte())
                    ID = sdr("RunId").ToString()
                End Using
                con.Close()
            End Using
        End Using
        If Not (String.IsNullOrEmpty(ID)) Then
            Response.Clear()
            Response.ContentType = "application/pdf"
            Response.AppendHeader("Content-Disposition", Convert.ToString("attachment; filename=InvoiceReport.pdf"))
            Response.BufferOutput = True
            Response.BinaryWrite(pdf)
            Response.[End]()
            End
        Else
            lblError.Text = "Record not found, Please Select the correct date"
            lblError.Visible = True
        End If
    Catch ex As Exception
        lblError.Text = "Record not found, Please Select the correct date"
        lblError.Visible = True
    End Try
End Sub