Merhaba,
Yeni veritabanı oluştur, çalışmayan uygulamadaki tüm nesneleri yeni veritabanına aktar. 

Ofis sürümü ile ilgili hata alıyorsanız, modüldeki 

Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)

Declare Function SHBrowseForFolder Lib "shell32" (lpbi As shellBrowseInfo) As Long

Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _

         ByVal lpBuffer As String) As Long

Şeklindeki kodların tamamını ptrsafe ekleyerek

[vb]#If VB