Public Sub ConvertToaccDE()
sourcedb = "C:\Users\Usr\Documents\Database2.accdb"
targetdb = "C:\Users\Usr\Documents\Database2.accde"
Dim accessApplication As Access.Application
Set accessApplication = New Access.Application
With accessApplication
.SysCmd 603, sourcedb, targetdb
End With
'Set accessApplication = Nothing
End Sub