How can I link a dataenvironment command to a listview?

Dim a As String, i As Integer, c As Integer

a = DataEnvironment2.command2
a = Split(s, ",")
c = Me.ListView1.ListItems.Count + 1
With Me.ListView1

.ListItems.Add(c) , Trim$(a(0))

For i = 1 To 5
.ListItems(c).SubItems(i) = Trim$(a(i))
Next
End With