Обработка ошибок(On error goto) - VB

Формулировка задачи:

Хочу сделать небольшой обработчик ошибок для запроса. Тоесть хочу заменить стандартые ошибки на свои Msgbox'ы В общем вот код

...
 
On Error GoTo e
a = "UPDATE assort SET description ='" & txtFilmDesc.Text & "' WHERE as_id='" & txtFilmId.Text & "'"
cn.Execute a
 
e: 'если возникает ошибка то выводится сообщения "Ошибка"
MsgBox "Ошибка"
...

Вопрос что я делаю не так. Т.к когда даже нету ошибки в этих двух строчках, то обязательно выводится сообщения "Ошибка" ?

Решение задачи: «Обработка ошибок(On error goto)»

textual
                            Листинг программы 
                        

                            ...
 
On Error GoTo e
a = "UPDATE assort SET description ='" & txtFilmDesc.Text & "' WHERE as_id='" & txtFilmId.Text & "'"
cn.Execute a
Exit Sub
e: 'если возникает ошибка то выводится сообщения "Ошибка"
MsgBox "Ошибка"
...
                        