Si ho fatto un errore nel digitarvi il codice ora ve lo posto bene:

Dim LI As ListItem
With ListViewSchedeCliente
.ListItems.Clear
Dim mdbARC As String
mdbARC = App.Path & "\archivio.mdb"
Dim connARC As ADODB.Connection
Dim recCNT As ADODB.Recordset
Set connARC = New ADODB.Connection
connARC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbARC & "; Persist Security Info=true"
Set recCNT = connARC.Execute("Delete From schede Where IDS='" & .SelectedItem.Key & "'")
Set recCNT = Nothing
Set recCNT = New ADODB.Recordset
recCNT.Open ("Select * From clienti Order by Cognome Asc, Nome Asc"), connARC, 1, 1
If recCNT.RecordCount > 0 Then
.Enabled = True
Do While Not (recCNT.EOF)
Set LI = .ListItems.Add(, recCNT.Fields("IDS"), recCNT.Fields("IDS"))
LI.SubItems(1) = recCNT.Fields("NumeroScontrino")
LI.SubItems(2) = recCNT.Fields("DataScontrino")
Set LI = Nothing
recCNT.MoveNext
Loop
Else
.Enabled = False
End If
recCNT.Close
Set recCNT = Nothing
connARC.Close
Set connARC = Nothing
End With

End If

da come ho capito l'errore deriva dall evidenzito in rosso