codice:
Set db = OpenDatabase(App.Path & "\Abbigliamento.mdb")
    sql = "select * from Clienti order by Ragso"
Set rs = db.OpenRecordset(sql)

Do While rs.EOF = False 'Scorro tutta la query
   ind = ind + 1
   Set mItem = ListView1.ListItems.Add(, , CStr(rs("Ragso")))
   mItem.ListSubItems.Add , , CStr(rs("Indirizzo"))
   mItem.ListSubItems.Add , , CStr(rs("Cap"))
   ListView1.ListItems(ind).Tag = rs("ID")
rs.MoveNext
Loop
rs.Close
ora mi visualizza solo le Ragioni sociali.
io vorrei che mi mettesse :

Ragso Indirizzo Cap

cme si fa?