Tratamiento de errores: On Error Resume Next

'Extracto de una función de McPegasus que sólo tiene valor a título informativo sobre cómo utilizar la instrucción "On error Resume Next"
Option Compare Database
Option Explicit

Const cstrAppTitle     As String = "MyApp"
Const cstrProjectName  As String = "MyApp project"

Public Sub Propertiesdbs()
Dim strNameProperty As String
Dim strValueProperty As String
    
'Título
    strNameProperty = "AppTitle"
    strValueProperty = cstrAppTitle
    
'    On Error Resume Next
    CodeDb.Properties.Delete (strNameProperty)
    
    CodeDb.Properties.Append CodeDb.CreateProperty(strNameProperty, dbText, strValueProperty)
    
'Nombre de Proyecto
    strNameProperty = cstrProjectName
           
    Application.SetOption "Project Name", strNameProperty
       
End Sub