Determinar si un archivo está protegido por contraseña

El siguiente código muestra como conocer si una base de datos está protegida por una contraseña. No sé si existirá algun método mejor, pero no se me ha ocurrido otro. Si conoces alguna mejor házmela saber.

Private Sub btnComprobar_Click()
On Error GoTo Err_btnComprobar_Click

Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).OpenDatabase (“ruta.mdb”)

Exit_btnComprobar_Click:
Exit Sub

Err_btnComprobar_Click:
Select Case Err.Number
Case 3031
MsgBox “Archivo protegido por contraseña”
Resume Exit_btnComprobar_Click
Case Else
MsgBox Err.Number & ” ” & Err.Description
Resume Exit_btnComprobar_Click
End Select

End Sub