Access VB Append Query Probs

[lord nikon007]

I want this append query to run everytime the return button is pressed but i keep getting an error saying this is an invalid action. the query runs fine. the heck is wrong?

Private Sub cmdReturn_Click()

Dim dbs As Database
Dim rstApp As DAO.Recordset

'***** This runs the Append query to add the new records
'***** to the projects list before returning to the switchboard.
Set dbs = CurrentDb
Set rstApp = dbs.OpenRecordset("qryAppend", dbOpenDynaset)

'***** This closes the form without submitting
'***** the records to the table.

rstApp.Close
dbs.Close
DoCmd.Close

End Sub

 

[lord nikon007]

ok....solved that problem on my own so forget that...new question

....once you hit the return to switchboard button after the append query runs i want the records entered to show up but they wont unless you restart the entire database. is there a command that will instantly return the latest records without me having to restart the database?