[Resolvido]Loop para excluir informacoes no banco de dados

Boa noite caros amigos programadores.
Gostaria da ajuda de voces referente a criação de um loop para excluir do banco de dados todos os items selecionados na listview.
Segue o codigo que eu utilizado para excluir os dados:

If CodCli = 0 Then
MsgBox "Nenhum aluno foi selecionado!", vbCritical, "SISTEMA INSIDE INFORMA"
Exit Sub
End If
If MsgBox("Se clicar em SIM, todos os dados do aluno serão perdidos, confirma exclusão?", vbYesNo, "SISTEMA INSIDE INFORMA") = vbYes Then

ConnectBD


rs.Open "select * from Cadastro where codigo=" & CodCli, db, 3, 3
rs.Delete
rs.Update
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

esse codigo eu uso para excluir atraves apenas da seleção de 1 item na listview...

Mais simples assim:

Código:

If CodCli = 0 Then
MsgBox "Nenhum aluno foi selecionado!", vbCritical, "SISTEMA INSIDE INFORMA"
Exit Sub
End If
If MsgBox("Se clicar em SIM, todos os dados do aluno serão perdidos, confirma exclusão?", vbYesNo, "SISTEMA INSIDE INFORMA") = vbYes Then

ConnectBD

call db.execute("delete * from Cadastro where codigo=" & CodCli)
call db.Close: Set db = Nothing
end if

Bom dia meu amigo, mais em que momento no codigo que voce me enviou informa que sera feito um loop para excluir todos os dados selecionados na listview do banco de dados?
nao entendi

Código:

If CodCli = 0 Then
MsgBox "Nenhum aluno foi selecionado!", vbCritical, "SISTEMA INSIDE INFORMA"
Exit Sub
End If
If MsgBox("Se clicar em SIM, todos os dados do aluno serão perdidos, confirma exclusão?", vbYesNo, "SISTEMA INSIDE INFORMA") = vbYes Then

Dim filtro As String
Dim Sel As Variant
Dim AlgoSelecionado As Boolean

filtro = "in("
Rem Loopeando sua lista catando os selecionados
For Each Sel In Me!SuaLista.ItemsSelected
   filtro = filtro & Me!SuaLista.Column(NumeroColunaComCodigoPartindoDoZero, Sel) & ","
   AlgoSelecionado = True
Next
filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
filtro = "codigo " & filtro

If AlgoSelecionado Then
ConnectBD
call db.execute("delete * from Cadastro where " & filtro)
call db.Close: Set db = Nothing
End If

end if

Resolvido com a seguinte linha de código:

Dim i as integer
For i = 1 To lstPago.listitems.count
lstPago.ListItems(I).Selected = True
If lstPago.SelectedItem.Checked then
connectDB
rs.Open "select * from Parcelas where codigo=" & lstPago.SelectedItem, db, 3, 3
rs.Delete
rs.Update
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End If
Next


Obrigado a todos que cooperaram!!!!

Daniel, não use o código da sua última mensagem.

Ele pode ser funcional, mas nada recomendado. Ele percorre os itens da listbox abrindo e fechando a conexão para cada item. Agora, imagine um sistema em rede e uma listbox com 200 itens? Você certamente terá problemas! Tente achar uma forma de fazer uma viagem só a tabela e resolver tudo que quereres nessa viagem. Diversas viagens à tabela é pedir para plantar o caos no seu aplicativo. Sentirá a perda de desempenho e travamentos. Deixo esta dica.

Olá a todos,

Daniel não deve colocar nada no titulo do tópico nas mensagens seguintes.
Deixando vazio o título, o forum automaticamente repete a da primeira mensagem.

Edite as mensagens que tem o título diferente e regularize.

Abraço a todos