Dim r As Row = Tables("XXX").Current
For Each c As Col In Tables("XXX").Cols
r(c.name) = Nothing
Next