Hola amigos como andan, espero que hayan tenido un buen dia, disculpen las molestias pero tengo un problema con el siguiente codigo:
resulta que estoy programando en vb 2008 y el siguiente codigo no me funciona, no se bien a que se deba, me podrian ayudar, aqui les muestro el codigo:
Código:
With ListView1
For i = .Items.Count To 0 Step -1
'UPGRADE_WARNING: El límite inferior de la colección ListView1.ListItems cambió de 1 a 0'
If .Items.Item(i).Checked = True Then
vclave = Trim(.Items.Item(i).Text)
rst = dbs.OpenRecordset("select * from clientes where clave like '" & vclave & "'")
If rst.RecordCount >= 1 Then
dbs.Execute("DELETE * FROM clientes WHERE clave= '" & vclave & "'")
End If
End If
Next i
End With
bueno el caso es que me marca el siguiente error:
"InvalidArgument=El Valor de '16' no es valido para 'index'". nombre del parametro: index
me podrian ayudar o darme una referencia de como le puedo hacer, se los agradezco de antemano la atencion prestada y les envio un cordial saludo.
