' データベースのパス名(ファイル名含む)
Public strDbPath As String
' データベース名の定数定義
Public Const DB_NAME = "Movie.mdb"
Public Const TABLE_NAME = "映画"
---------------------------------------------------
'
' データベース・ファイルのパスを取得
' 以後、strDbPathでデータベースにアクセスできる
'
Public Sub SetDbName()
　　strDbPath = App.Path & "\" & DB_NAME
End Sub
---------------------------------------------------
'
' テキストボックスにフィールドを設定
'
Public Sub SetDbFields(frmForm As Form)
　　frmForm.txtMovieId.DataField = "MovieID"
　　frmForm.txtTitle.DataField = "タイトル"
　　frmForm.txtOrgTitle.DataField = "原題"
　　frmForm.txtIndexString.DataField = "タイトル索引"
　　frmForm.txtDirector.DataField = "監督"
　　frmForm.txtActor.DataField = "主演"
　　frmForm.txtCoStaring.DataField = "共演"
　　frmForm.txtProduce.DataField = "製作"
　　frmForm.txtDepend.DataField = "配給"
　　frmForm.txtCountry.DataField = "国"
　　frmForm.TxtRemark.DataField = "備考"
End Sub
---------------------------------------------------
'
' ID、タイトル、原題をロックする
'
Public Sub FieldLock(frmForm As Form, Switch As Boolean)
　　frmForm.txtMovieId.Locked = Switch
　　frmForm.txtTitle.Locked = Switch
　　frmForm.txtOrgTitle.Locked = Switch
End Sub