Ho provato in questo modo, ma non riesco a sincronizzare i dati mi aiutate?!?:

codice:
For i = 0 To dshotel.Tables("clienti").Rows.Count - 1
            Do While prova.Peek >= 0
                a = prova.ReadLine
                b = Split(a, "|")
                If b(0) = dshotel.Tables("clienti").Rows(i)("codice") AndAlso b(8) <> "" Then
                    dshotel.Tables("clienti").Rows(i)("nazione") = Replace(b(8), Chr(34), "")
                End If
            Loop
        Next