Dim t As Table = Tables("xxx").
Dim r As Row = t.Current
Dim v As String
For i As integer = t.Cols.Count -1 to 0 Step -1
if r.isnull(t.Cols(i).Name)= False Then
v = r(t.Cols(i).Name))
exit for
end If
Next