Обработка ошибки

[vlkr]

Всем привет!

Подправьте код пожалуйста
Задача в следующем прилинковываются таблицы, и если возникает ошибки выдается сообщение и т.д.

Private Sub Ok_Click()
On Error GoTo Err_Ok_Click
    Dim strBase As String
        
    Set rstTemp = CurrentDb.OpenRecordset("T_Path")
    strBase = rstTemp!PName
           
Call SetReferences(strBase)           
    
Exit_Ok_Click:
    Exit Sub

Err_Ok_Click:
    MsgBox Err.Description
    Resume Exit_Ok_Click
End Sub

Public Sub SetReferences(strBase As String)
Dim tdfLinked As TableDef

On Error GoTo Err_SetReferences

ClearTablesRef

Set tdfLinked = CurrentDb().CreateTableDef("T_Staff")
tdfLinked.Connect = ";DATABASE=" & PName ';PWD=123"
tdfLinked.SourceTableName = "T_Staff"
CurrentDb().TableDefs.Append tdfLinked

Exit_SetReferences:

End Sub

Err_SetReferences:

    Select Case Err.Number
    Case 0
        strResult = 1
    Case 3078
        strResult = 2
    Case 3024, 3011
        strResult = 3
    Case 3044
        strResult = 4
    Case 3343
        strResult = 5
    Case 3321
        strResult = 6
    Case Else
        strResult = 7
    End Select
    Err.Clear
  End Sub

За любую информацию спасибо.

[vlkr]

Всем спасибо!

В настройках редактора VBA нужно поставь опцию break on unhandled errors