Originariamente inviato da ClaudioMalorgio
lo spero

Non ci avevo pensato ora provo !

Con un for each ?
Esatto.

Un esempio
codice:
Dim myAL As New ArrayList()

Using cn As New OleDbConnection("provider=....") 
  Using cmd As NEw OleDbCommand("select * from ....", cn) 
    cmd.Connection = cn
    Using dr As IDataReader = cmd.ExecuteReader() 
      Do While dr.Read() 
        ' Leggi il numero
        myAL.Add(dr("ANUMBER"))
      Loop 
    End Using 
  End Using 
End Using

CercaNumero(MyAL)

Private Sub CercaNumero(myListArray As IEnumerable)
    Dim obj As [Object]
    For Each obj In myListArray
        ' Esegui la query di ricerca
        TuaRoutineDiRicercaNumero(obj.ToString)
    Next obj
End Sub
l'ho scritto al volo quindi VERIFICA BENE, sicuramente ho scritto qualche castronata...