Urgent Assistance

Private Sub BindListView()
        Dim constr As String = ConfigurationManager.ConnectionStrings("Tokens4UDissertationSite").ConnectionString
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand()
                cmd.CommandText = "SELECT ProductID, ProductName, ProductDescription, ProdImage, CustomerID, Cost FROM Product ORDER BY ProductID DESC"
                cmd.Connection = con
                Using sda As New SqlDataAdapter(cmd)
                    Dim dt As New DataTable()
                    sda.Fill(dt)
                    ListView2.DataSource = dt
                    ListView2.DataBind()
                End Using
            End Using
        End Using
    End Sub