Hi

I see example below:
Code:
    Dim itmX As ListItem ' Create a variable to add ListItem objects.
    Dim clmX As ColumnHeader ' Create an object variable for the ColumnHeader object.
   ' Add ColumnHeaders.
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 1", ListView1.Width / 3)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 2", ListView1.Width / 3)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Column 3", ListView1.Width / 3)
    
    ListView1.BorderStyle = ccFixedSingle ' Set BorderStyle property.
    ListView1.View = lvwReport ' Set View property to Report.
    
    ' Add a main item
    Set itmX = ListView1.ListItems.Add(, , "First value")
    ' Add two subitems for that item
    itmX.SubItems(1) = "First value subitem 1"
    itmX.SubItems(2) = "First value subitem 2"
But when I put in my code
Code:
    Set itmX = lvw_profissional.ListItems.Add(, , Ret_Sql.Fields("TB02_PK"))
          itmX.SubItems(0) = "xxxx"
It return me error Invalid property value