Dim NumADB As Generic.List(Of Int32) = New Generic.List(Of Int32)()
        ''qui ti connetti al tuo db e una volta letti i numeri li aggiungi uno ad uno alla lista
        NumADB.Add(numero)

        Dim rnd As Random = New Random(Date.Now.Second)
        Dim numCorr As Int32 = rnd.Next(1, 1000)

        While NumADB.Contains(numCorr)
            numCorr = rnd.Next(1, 1000)
        End While

        ''in questo punto hai all'interno della variabile numCorr un numero di sicuro non presente nella lista