ya he logrado resolver mi problema..... para os q ue tengan un problema parecido aqui les dejo mi codigo:
Código vb:
Ver originalSet rsborrar = myconn2.Execute("SELECT pago_excluido FROM pagos_procesados")
While Not rsborrar.EOF
Dim intX As Integer
With List1
For intX = 0 To .ListCount
pago = .List(intX)
pagoexcluido = rsborrar!pago_excluido
If pago = pagoexcluido Then
List1.RemoveItem (intX)
End If
Next
End With
rsborrar.MoveNext
Wend
saludos