Access - Jefferson no me sale el icono de la aplicacion

Jefferson, vi tu ejemplo de poner icono a la aplicacion y lo he seguido cambiando el nombre del icono pero me sigue saliendo el icono tradicional de access.
Probablemente no coloque el codigo en el lugar adecuado o no se como llamar al procedimiento.
un saludo

Hola Rafa

Fijate, te la pongo mas facil

Private Declare Function LoadImageA Lib "user32" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Private Declare Function SendMessageA Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub PonIconAccess(RutaIcon As String)
SendMessageA hWndAccessApp, &H80, 0, ByVal LoadImageA(0&, RutaIcon, 1, 16, 16, &H10)
End Sub


Saludos
Desde Venezuela
Jefferson

Jefferson, perdona pero soy bastante inexperto en esto del VBA:
¿donde pongo el codigo? en un formulario?, en un nuevo modulo?, no se donde debo colocarlo.
gracias