VBA protection

[javiernews via AccessMonster.com]

Hi,

There is any way to know is a external DB has code password protection ?
I'm using the following code but is Not working:

Sub PassVBA()
' Reference: Microsoft Visual basic for Aplications Extensibility 5.3
Dim oAcc As Object
Dim oAPP As Object
Dim MyDB As String


MyDB = Application.CurrentProject.Path & "\MySamples\" & "PassordVBA.
mdb"
Set oAPP = CreateObject("Access.Application")
Set oAcc = oAPP.DBEngine.OpenDatabase(MyDB, True, False)


If oAcc.VBE.ActiveVBProject.Protection = vbext_pp_locked Then
MsgBox "With password", vbExclamation
Else
MsgBox "WithOut password", vbInformation
End If


End Sub