mi sa che c'è però anche qualche problema quando la carico:

i = 0
While dr.Read
ArrLingue(i) = dr("Lingue")
i = i + 1
End While

ora che ho corretto come mi hai suggerito l'errore si è spostato qui e mi dice:
System.IndexOutOfRangeException: Lingue