JetDBエンジンで
dim db as Database
set db = open(......

if db = 開けた？ then
msgbox "やったー"
end if

みたいにオープンできたかどうか調べたいのですができますか？
On errorとかは使いたくないのですが