Обработчик ошибок - VB

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

Доброго времени.
Преподавать дал задание сделать обработчик ошибок при подключении база данных.
Здесь идет подключение:
Код Visual Basic

Public Sub Podk()
       Set Cn = New ADODB.Connection
       str = "Provider=Microsoft.ACE.OLEDB.12.0; data Source=" & App.Path & "\Database41.accdb;"
       Cn.ConnectionString = str
       Cn.Open
       End Sub

Как он сказал, при не правильном вводе имени файла,тобишь не Database41,а к примеру Databsae41,этот обработчик и давал о себе знать, мол не та база.
Почитал форум,что то в голову дало,но реализация страдает.

Решение задачи: «Обработчик ошибок»

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