Eliminar items de un listbox...

[ARGFA]

buenas tardes elcomunidad programadora.
tengo un problema el cual no he podido resolver.

tengo un listbox que al ejecutar el programa se carga con 3mil items aproximadamente. pero tambien tengo una pequeña tabla con un solo campo que contiene N numero de items.

lo que quiero hacer es que despues que se cargue mi listbox con todos los items, eliminar los items del listbox que se encuentran en la pequeña tabla.

con la finalidad de que cuando vuelvan a ejecutar el programa no vuelvan a aparecer los items que fueron seleccionados anteriormente en una corrida anterior del mismo.

aqui les anexo mi codigo para cargar el list box

Código vb:

'lleno la lista con todos los pagos que estan almacenados en la base de datos
Set rslista = myconn.Execute(" SELECT * FROM dbo_pagos")
    Do Until rslista.EOF
          List1.AddItem rslista!cob_num
          
    rslista.MoveNext
Loop
 

como pueden ver con esa rutina cargo todo el list.... ahora necesito borrar los pagos que ya fueron procesados, los cuales almaceno en la pequeña tabla con un solo campo....

estuve pensando en algo como

Código vb:

Set rsborrar = myconn2.Execute("SELECT * FROM pagos_procesados")
    While Not rsborrar.EOF
        If List1.Container = rsborrar Then
            List1.RemoveItem (rsborrar)
        Else
        List1.MoveNext
        End If
    rsborrar.MoveNext
    Wend
 

pero por supuesto que la sintaxis esta mas q mala...!!!
no tengo idea como trabajar con listbox.
agradeceria su ayuda...
gracias por su tiempo....

[ARGFA]

ya he logrado resolver mi problema..... para os q ue tengan un problema parecido aqui les dejo mi codigo:

Código vb:

Set 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