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