Prova con
codice:
Dim foundrows As DataRow()  = blabla
'e non 
Dim foundrows() As DataRow = blabla