リスト２：レコードの追加処理（フォーム名frmAddNew）の初期化部分 Private Sub Form_Load() 　　SetDbName ' データベース名を取得(標準モジュール) 　　datMovie.DatabaseName = strDbPath 　　datMovie.RecordSource = TABLE_NAME 　　SetDbFields Me ' フィールドを設定(標準モジュール) 　　datMovie.Refresh 　　datMovie.Recordset.AddNew End Sub 本文へ戻る