自己来吧
For Each record As XmlNode In xmlDoc.SelectNodes("NewDataSet/Table")
For Each Item As XmlNode In record.ChildNodes
tmpstr = tmpstr & Item.InnerText & vbTab
Next
tmpstr = tmpstr & vbCrLf
Next