Sure, just create 2 columns and use the SubItems Object of the added Item to set the 2nd column, i.e.
Code:
Private Sub Form_Load()
    Dim lIndex As Long
    Dim oNewItem As ListItem
    
    With ListView1
        .View = lvwReport
        .ColumnHeaders.Add , , "Header1"
        .ColumnHeaders.Add , , "Header2"
        For lIndex = 1 To 20
            Set oNewItem = .ListItems.Add(, , "Item " & lIndex)
            oNewItem.SubItems(1) = "Data " & lIndex
        Next
    End With
End Sub