You must be using either Access 2000 or Access 2002. In Access 97 and earlier, the only method of communicating with the database was through DAO (Data Access Objects). Around the time of Access 2000, Microsoft introduced a new method call ADO (ActiveX Data Objects). While DAO was designed specifically to work with Jet databases (i.e. MDB or MDE files), for some reason they decided not to

You can't just use an End If. End If is the conclusion of an If statement. One option would be to use the Execute method of the QueryDef object, and then check how many records got appended by the query. Private Sub RunReport_Click() On Error GoTo Err_RunReport_Click Dim dbCurr As DAO.Database Dim qdfCurr As DAO.QueryDef Dim stDocName As String Set dbCurr = CurrentDb() Set qdfCurr