OpenDB(DBPath)
Dim IsOk IsOK = OpenDB("c:\sample.fdb")
If IsOK Then MsgBox "sample.fdb has successfully opened!"
CloseDB Function