Try And Catch - Creating A Database Using Access 2007 And VB 2008

I'm creating a database using Access 2007 and Visual Basic 2008.

I'm using the try and catch exception handler in my project. this try and catch are inserted in the Save Record button. here is the code snippet of my try & catch:

CODE:

My problem is that, whenever i add a new record and clicked the Save Record button, the msgbox "Data Update Failed" popped out. But when i recheck, the newly added record was actually successfully saved in the database.

Is there something wrong with my code? The new record is inserted in the database but why does the "Data Update Failed" msgbox was popped out instead of the "Data Saved" msgbox?? I've tried many times but i still cant figure this out. please help.