ciao a tutti

ho fatto questo codice x cancellare tutto il contenuto di una tabella:

Set recElenco5 = New ADODB.Recordset
recElenco5.Open "SELECT * FROM foglio1 ; ", cnDB, adOpenDynamic, adLockBatchOptimistic
Do While Not recElenco5.EOF
recElenco5.Delete
recElenco5.MoveNext

Loop


ma mi da un errore di run time... dove sbaglio?