Visual Basic - PROBLEMAS CON LISTVIEW...

Hola chicos, chicas...
Tengo una pregunta acerca del Control Listview:
1) ¿Cómo hago con el Listview si quiero añadir información en varias columnas similar al Flexgrid?

Les agradeceria mucho si me pudieran ayudar.....
Besos.....

Private Sub Form_Load()
With ListView1
.View = lvwReport
.Checkboxes = True
.MultiSelect = True
.FullRowSelect = True

For X = 1 To 21
.ColumnHeaders.Add , , "COLUMNA " & X
Next X

End With

Dim a, b
b = 0
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
b = b + 1
With Adodc1.Recordset
ListView1.ListItems.Add , , .Fields(0).Value
For a = 1 To 20
ListView1.ListItems(b).SubItems(a) = .Fields(a).Value
Next a
.MoveNext
End With
Loop

End Sub