Всем доброе утро.

Подскажите плз.
Нарыл код:
'---------------------------------------------------------------
Function BazyShift()
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
Dim TmpBool As Boolean
On Error GoTo Change_Err
If dbs.Properties("AllowBypassKey") = True Then
If MsgBox(" Реагируем на " & Chr(13) & _
" открытый режим базы" & Chr(13) & _
" Защитить?", vbInformation + vbYesNoCancel) = _
vbYes Then
dbs.Properties("AllowBypassKey") = False
TmpBool = MsgBox("Нормальная работа в режиме" & _
" ЗАЩИТЫ начнется при следующем старте.", _
vbInformation)
End If
Else
If MsgBox(" Нет реакции на " & Chr(13) & _
" Нормальное состояние базы" & Chr(13) & _
" Хотите включить реагирование?", vbExclamation + _
vbYesNoCancel) = vbYes Then
dbs.Properties("AllowBypassKey") = True
TmpBool = MsgBox("Вы можете просматривать и " & _
" редактировать объекты базы при следующем входе" & _
" в нее. Незабудьте потом отключить реагирование на " & _
.", vbInformation)
End If
End If
Change_Bye:

Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Свойство не найдено.
Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
dbs.Properties.Append prp
Resume Next
Else
' Неизвестная ошибка.
Resume Change_Bye
End If
End Function
'---------------------------------------------------------------

Но не пойму, как его применить.
В параметрах запуска у меня указана форма.

Я не знаю, как запустить этот код. Т.е. куда его надо вставить, и как его запустить при открытии базы.

Если можно по подробней.

Я создал модуль Module1
В него всавил код.
Создал макрос autoexec
1. Попробовал в макросе Открыть модуль - ноль эмоций
2. Попробовал Запустить программу - ноль эмоций

Что значит поставить курсоа и нажать F5.

Если не трудно, можно ответить еще на один вопрос.

На кнопку ставлю свой ресунок. (К рисунку путь) C:\ddd\e.bmp

Если базу перенести, то ссылка теряется. Можно рисунок к нопке привязать и забыть?

Заранее спасибо.