[VB6] Connesione Ado + scrittura su file excel

[b.lory]

come da titolo ho creato una connesione ado con un file di tipo excel... e fin qua tutto ok.. o creato una listbox con all'interno i campi "Numero telefono principale" e "Nome".
ora dovrei aggiungere nuovi record (presi da una seconda lista)... ma quando eseguo .update
il sistema mi dice che dovrei aprire una query di aggiornamento.... :master:

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\telefono1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
cn.Open
lista.Path = App.Path & "\cellulare"
lista.Pattern = "*.vcf"

SqlRs = "Select * from  [telefono1$]"
If rs.State = 1 Then rs.Close
rs.Open SqlRs, cn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Nome") = Nome
rs("Numero telefono principale") = Tel
rs.Update

.... qui mi da l'errore...
Ciao...

[b.lory]

.... Nessuna idea??????