主题：请教用代码合并XML文件问题

蓝老师，我想采取打开文件对话框方式，合并指定的XML文件，下面的代码有错误，不知怎么修改，请您指导

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "Access文件|*.mdb" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim xml As String = FileSys.ReadAllText(dlg) '提示此行错误

    Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)

    Dim r4 As Row = Tables("AdditionalInformation").AddNew

    r4("Remark") = xo("EInvoiceData")("AdditionalInformation")("Remark")

End If