ユーザーフォーム等でデータベースを使用する度に、データベースファイルを開くことはムダですので、ワークブックが開いた時点でデータベースファイルも開くようにします。
開くには、OpenDatabaseメソッドを使用します。
構文： SET データベースオブジェクト = OpenDatabase(データベースファイル名)
そして、ワークブックが閉じる直前にデータベースファイルも終了処理を行います。
構文： SET データベースオブジェクト = Nothing
1)標準モジュールに追加してください。
Public tDbHanbai As Database
2）Workbook_Openイベントを変更してください。
On Error GoTo ErrExit
'データファイルの存在確認
If ExFileExist(sExcelPath + "hanbai2009.mdb", vbNormal) = "" Then
'MsgBox "ここに、MDBファイルの新規作成処理を記入します。"
MyMakeDataBase
Else
Set tDbHanbai = OpenDatabase(sExcelPath + "hanbai2009.mdb")
End If
Exit Sub
ErrExit:
Beep
MsgBox "データベースのオープン時、エラーが発生しました。" & vbNewLine & Err.Description
以上で起動するとデータベースが開きます。