用VB判断追加查询是否成功有许多办法，这是本人用的一种简便的方法，提供大家参考。如果想具体了解追加了多少条记录，只要将 newrecords- oldrecords，然后将减的结果反映在msgbox中即可。

 oldrecords表示原有的记录数， newrecords表示新的记录数 ，两者相等即未追加成功。

Dim oldrecords As String
Dim newrecords As String
     oldrecords = DCount("*", "表")
      DoCmd.OpenQuery "追加查询"
      newrecords = DCount("*", "表")
      If oldrecords <> newrecords Then
              MsgBox "记录已成功追加!"
      Else
             MsgBox "记录未追加!"
      End If