主题：关于XML的问题，初学，请发代码学习

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表C").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 3 To rs.Length - 1
        Dim cs() As String = rs(i).Split("~~")
        If cs.Length = 9 Then
            Dim dr As DataRow = DataTables("表C").Addnew()
            dr("名称") = cs(1)
            dr("税号") = cs(2)
            dr("地址电话") = cs(3)
            dr("银行账号") = cs(4)
        End If
    Next
End If
Tables("表C").ResumeRedraw

这个也没反应啊