Public Sub FillView()

Dim myList As ListItem
Dim i As Integer
Dim myName As String
Dim myAddress As String
Dim myPhone As String
Dim myID As String

ListView1.ListItems.Clear
i = 1

Set mRS = New ADODB.Recordset
mRS.ActiveConnection = mConn

sqlstg = "select * from CSTSRVFL order by flast"
mRS.Open sqlstg

Do While Not mRS.EOF
    myName = Trim(mRS.Fields("flast")) & ", " & Trim(mRS.Fields("ffirst"))
    myAddress = Trim(mRS.Fields("fcity")) & ", " & Trim(mRS.Fields("fstate"))
    myPhone = Trim(mRS.Fields("fphone"))
    myID = Trim(mRS.Fields("fid"))
    Set myList = ListView1.ListItems.Add(, "rcd" & CStr(i), myName)
    myList.SubItems(1) = myAddress
    myList.SubItems(2) = myPhone
    myList.SubItems(3) = myID
    i = i + 1
    mRS.MoveNext
Loop

mRS.Close

Set mRS = Nothing

End Sub