Sub PonMiIcono()
'***************************************************************
'& &*
'& &*
'& &*
'& &*
'& Jefferson Jimenez (JJJT) &*
'& Cabimas - Venezuela &*
'& Marzo - 2010 &*
'& &*
'& &*
'& &*
'& &*
'& &*
'***************************************************************
'El archivo icono debe estar en la misma carpeta donde esta la aplicacion access
Dim ElNombreIcono As String: ElNombreIcono = "TuIcono" & ".ico"
Dim db As Object, ProPiedaD As Object
On Error GoTo err_MiIcono
Set db = DBEngine.OpenDatabase(CurrentProject.Path _
& "\" & CurrentProject.Name)
db.Properties("AppIcon").Value = CurrentProject.Path _
& "\" & ElNombreIcono
db.Properties.Refresh
exit_MiIcono:
Err.Clear
err_MiIcono:
If Err.Number = 3270 Then
Set ProPiedaD = db.CreateProperty("AppIcon", _
DB_TEXT, CurrentProject.Path _
& "\" & ElNombreIcono)
db.Properties.Append ProPiedaD
Set ProPiedaD = Nothing
Application.RefreshTitleBar
End If
End Sub