Public Function CreaMDE(strMDBFile As String, strMDEFile As String) As Boolean
   'Autore: AntoGal
   'Converte da codice un file MDB in MDE
   'Esempio: CreaMDE("C:\MyDatabase.mdb", "C:\MyDatabase.mde")
   'Restituisce: True se non si verificano errori
   On Error GoTo mde_err
   SysCmd 603, strMDBFile, strMDEFile
   CreaMDE = True
   Exit Function

mde_err:
   MsgBox Err.Description
   Exit Function
End Function