[Resolvido]Erro em Função para Carregar ícone App

Boa tarde Amigos.

Tenho esta função que está funcionando perfeitamente em Windows 7 64 Bits.
Porem um cliente ao rodar em Windows 7 32 Bits ela dá erro..

Caso alguem saiba o que está acontecendo fico grato por compartilhar

Function CarregaIconeApp()
Dim MyIcon As String

MyIcon = CurrentProject.Path & "\Icons\SysControl.ico"
CurrentDb.Properties("AppTitle") = "SysControl"
CurrentDb.Properties("AppIcon") = MyIcon
Application.RefreshTitleBar
End Function

Esta função está sendo chamada através da macro AutoExec, primeira linha através do comando
Executar Código  >> CarregaIconeApp()


Grato.

Então levando em consideração esta lógica eu poderia chamar esta função em algum formulário de inicialização do sistema correto?

Irei estudar seu tutorial Mestre.

Me dou por satisfeito.

Obrigado.

Boas Avelino.. na funçào a seguir está dando erro: Tipos incompatíveis..

O que pode ser?

Public Sub fncListaPrp()
On Error Resume Next
Dim prpNew As Property
Dim prpLoop As Property
For Each prpLoop In CurrentDb.Properties
   With prpLoop
      Debug.Print .Name & " Type: " & .Type & " Value: " & .Value
   End With
Next prpLoop
End Sub


Cumprimentos.

Se puder também Avelino, ajudar-me a concluir esta função na parte em vermelho:

Public Sub fncCarregaIconeApp(Caminho As String)
Dim prpNovo As Property
On Error Resume Next
Application.RefreshTitleBar
CurrentDb.Properties("AppIcon") = Caminho
If err.Number = 3270 Then 'Se a propriedade não existir acusa erro 3270
   Set prpNovo = CurrentDb.CreateProperty("AppIcon", dbText, Nz(Caminho, Application.Name))
   CurrentDb.Properties.Append prpNovo
   err.Clear
End If
End Sub

Cumprimentos.

Sobre a função da lista de propriedades resolvi da seguinte forma:

Public Sub fncListaPrp()
    On Error Resume Next
    Dim Db As DAO.Database, prp As DAO.Property
    Set Db = DBEngine(0)(0)
    For Each prp In Db.Properties
        Debug.Print prp.Name, prp.Value
    Next
    
    Set Db = Nothing
    Set prp = Nothing
End Sub

Se puder me ajudar na função do ícone fico grato Avelino.

Cumprimentos.