Para usar el For Each puedes hacer así. (Me tomo el atrevimiento de tomar como ejemplo el código de
Avellaneda. Espero no se moleste.):
Código:
Dim Item As ListItem
For Each Item In .ListItems
If Item.Checked = True Then
cn.Execute "DELETE * FROM animales WHERE id = " & Item.Text
End If
Next i
Saludos
