ShrinkDB(DBPath)
CreateDB("c:\sample.fdb") Dim IsOK IsOK = ShrinkDB("C:\sample.fdb") If IsOK Then MsgBox "The execution of ShrinkDB Function is successful!"