Este procedimiento cambia o crea, si no existe, la propiedad Icono de la
base de datos actual.

Sub CambiarIconoBD(Icono As String)
Dim db As DAO.Database
Dim prp As DAO.Property

  Set db = CurrentDb

  On Error GoTo err_CambiarIconoBD

  db.Properties("AppIcon").Value = Icono

exit_CambiarIconoBD:

  Set db = Nothing
  Application.RefreshTitleBar
  Exit Sub

err_CambiarIconoBD:

  If Err.Number = 3270 Then 'la propiedad no existe
    Set prp = db.CreateProperty("AppIcon", dbText, Icono)
    db.Properties.Append prp
    Set prp = Nothing
    Resume Next
  Else
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    GoTo exit_CambiarIconoBD
  End If

End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)