[VbNet] problemi con la find

[mistersuperstar]

praticamente ho scritto questo



dim UtentiMT As DataTable = objDataSet.Tables("UtentiMt")
Dim TrovatoCli As DataRow

Riga = FileImpianti.ReadLine
While Riga <> Nothing
Riga = FileImpianti.ReadLine
If Riga <> Nothing Then
Clienti = Split(Riga, ",")
TrovatoCli = UtentiMT.Rows.Find(Clienti(1))
If TrovatoCli Is Nothing Then
TrovatoCli = UtentiMT.NewRow()
NuovaRig = True
End If
TrovatoCli("Nome Utente") = CStr(Clienti(1))
TrovatoCli("Impianto MT/BT") = CStr(Clienti(0))
If NuovaRig Then
UtentiMT.Rows.Add(TrovatoCli)
NuovaRig = False
End If
End If
end While
NuovaRig = False