Fatto, ma va come prima....
per riepilogo ecco com'è il codice adesso

codice:
Dim conn As ADODB.Connection
Dim tony As New ADODB.Recordset
SQL = "select * from tony"
tony.Open SQL, conn, 3, 3

Dim clmX As ColumnHeader
   Set clmX = ListView1.ColumnHeaders.Add(, , "id")  
   Set clmX = ListView1.ColumnHeaders.Add(, , "Tipologia Sede")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Città")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Indirizzo")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Linea")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Totale Annuo")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Nota")
   Set clmX = ListView1.ColumnHeaders.Add(, , "Nota2")
 
   Do While Not tony.EOF
      ind = ind + 1
      ListView1.ListItems.Add , , CStr(tony(0))
      For i = 0 To 6
         If IsNull(tony(i + 1)) = False Then
            ListView1.ListItems(ind).SubItems(i) = CStr(tony(i + 1))
         End If
      Next
      tony.movenext
   loop