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