Public Sub NoToolbars()
'Disable toolbars
Dim prp As Property

On Error GoTo Err_NoToolbars
CurrentDb.Properties("AllowBuiltinToolbars") = False

Exit Sub
Err_NoToolbars:
If Err = 3270 Then 'property not found
Set prp = CurrentDb.CreateProperty("AllowBuiltinToolbars", dbBoolean, False)
CurrentDb.Properties.Append prp
Else
MsgBox Err.Description
End If
End Sub

Enjoy!