не получается убрать встроенные панели инструментов

Хотелось убрать все встренные панели инструментов. Изучив форум, соорудил следующее:
Private Sub cmdEnvironment_Click()
Dim dbsN As Database
Dim prp As Property
Set dbsN = CurrentDb
Set prp = dbsN.CreateProperty("AllowBuiltInToolbars", dbBoolean, False, False)
End Sub

при выполнении вылазит ошибка: Run-time error 13: Type mismatch
не поможете?
MS Access 2002
Заранее спасибо.

А так:

Dim dbsN As DAO.Database

И, кстати, вы забыли:

dbsN.Properties.Append prp

Вдогонку - главное-то вот:

Dim prp As DAO.Property

Karfaqen

Вдогонку - главное-то вот: Dim prp As DAO.Property

Спасибо!