Visual Basic - Mostrar mensaje, si la consulta no encuentra nada.

Try

            Using Conexion As New SqlConnection(cadenaconexion)

                Conexion.Open()

                Dim consultaSQL As String = "Select DescripcionProducto from TblaProducto2 WHERE CodigoProducto =@CodigoProducto"

                Dim comando As New SqlCommand(consultaSQL, Conexion)

                comando.Parameters.AddWithValue("@CodigoProducto", txtCodigoProducto.Text)

                Dim LD As SqlDataReader

                LD = comando.ExecuteReader()

                If LD.Read() Then

                    'Establecemos valores de la asignación, en el mismo orden de los valores de la consulta

                    Dim DescripcionProductoEncontrado As String

                    DescripcionProductoEncontrado = LD.GetString(LD.GetOrdinal("DescripcionProducto"))

                End If

            End Using

        Catch ex As Exception

            MsgBox("Error al intentar Cargar los Datos de los Controles",

           vbExclamation, "Error")

            MessageBox.Show(ex.Message) ' Muestra el Mensaje de Error.

        End Try