XML导入ACCESS导入错误弹窗

jiutianxingchen

问题1，XML文件导入access数据库代码如下，我想如何实现导入失败时弹出“导入失败！”这几个字呢？也就是如何判断是否导入成功呢？请各位高手茫茫指点一二，在下感激不尽！谢谢~（现在错误弹窗是VBA代码错误弹窗）
问题2，，access批量同时导入多个相同格式的xml文件？

Private Sub Command33_Click()
    Application.ImportXML "D:\Data.xml", acAppendData        '把数据添加到原有的表
    MsgBox "完成！"
End Sub

jiutianxingchen

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    Application.ImportXML "D:\Data.xml", acAppendData        '把数据添加到原有的表
        MsgBox "完成！"
Exit_Command0_Click:
    Exit Sub
   
Err_Command0_Click:
        MsgBox "导入失败！"
End Sub

修改代码如上，但是弹窗不弹出了，还是会写入“导入错误”一个表中，如何不让他保存导入错误这个表啊？