Joe, this is not the answer you want. You can think of an mde file is an mdb
file with something missing. The thing that is missing is access to the
code. When a mdb file is made into an mde file, you can not access the code.
You can't get the code back from an mde file. You need the original mdb file
that was used to create the mde file.

There are some companies on the internet that advertise getting your mde
file back into a mdb file, but I haven't heard of anyone who has used this
service.

Jeanette Cunningham

I'll have to (mostly) agree with Jeannette here: a .mde file has the original
source VBA code stripped out. It's gone.

That said... see the links and explanation at
http://www.granite.ab.ca/access/createmdbfrommde.htm

            John W. Vinson [MVP]

(...)

Check this link:
http://www.everythingaccess.com/mdeconversion.htm
They can restore also source VBA code.

Anyway you can convert MDE to MDB quickly (but without VBA code) using
something like this:

Public Sub MDE_2_MDB()
Dim sMDE As String, sMDB As String, sDir As String, sTitle As String
Dim sFilter As String, lNr As Long, Bin As String
   WizHook.Key = 51488399
   sDir = CurrentProject.Path
   sFilter = "MDE files (*.mde)"
   sTitle = "Open MDE file"
   WizHook.GetFileName 0, "", sTitle, "", sMDE, sDir, sFilter, 0, 0, 0,
True
   If Not (sMDE Like "*.mde") Then
       MsgBox "Bad file extension", 64
   Else
       Bin = Space(FileLen(sMDE))
       lNr = FreeFile
       Open sMDE For Binary Access Read Shared As #lNr
           Get #lNr, 1, Bin
       Close #lNr
       Bin = Replace(Bin, StrConv("MDE", vbUnicode), StrConv("MDB",
vbUnicode))
       sMDB = Replace(sMDE, ".mde", "_restore.mdb")
       lNr = FreeFile
       Open sMDB For Binary Access Write Shared As #lNr
           Put #lNr, 1, Bin
       Close #lNr
   End If
End Sub

KrisP, MVP, Poland
www.access.vis.pl