判断你的程序是在MDE还是在ADE中运行

Public Function atIsitMDE() As Byte

On Error Resume Next
Dim dbs As Object
Dim strMDE As String
If Application.CurrentProject.ProjectType = acADP Then
Set dbs = Application.CurrentProject
Else
Set dbs = CurrentDb()
End If
strMDE = dbs.Properties("MDE")
If Err = 0 And strMDE = "T" Then
atIsitMDE = 1
Else
atIsitMDE = 0
End If
Set dbs = Nothing

End Function