ーーーーーーーークエリーの実行ーーーーーーーーーーーー
Dim DB As Database
Dim query1 As QueryDef
Set DB = CurrentDb()
Set query1 = DB.QueryDefs("クエリー1")
query1.Execute '←実行（複数回書くと複数回実行されます。）
query1.Close
ーーーーーーーー日付の取り出しーーーーーーーーーーーーー
Dim a As Variant
a = 123456
Dim y, m, d
y = a \ 10000
m = (a - (10000 * y)) \ 100
d = a Mod 100
y  に 12
m に 34
d に 56
が入ります
ーーーーーフォームをＶＢフォームのような外観にするーーーーーーー
フォームのプロパティーの書式で、

レコードセレクタ	いいえ
移動ボタン		いいえ
区切り線		いいえ

に変更する。
その他のフォームに関するプロパティーも、書式に入っています。
ーーーーーーーーーーーメッセージボックスーーーーーーーーーーーー
Dim retvalue As Integer
Dim buttons As Integer
'====================================
'buttons 以下の定数の合計値で指定します。
'○ボタンの種類
'OKボタン			vbOKOnly = 0
'OKボタン、キャンセルボタン	vbOKCancel = 1
'中止、再試行、無視ボタン	vbAbortRetryIgnore = 2
'はい、いいえ、キャンセルボタン	vbYesNoCancel = 3
'はい、いいえボタン		vbYesNo = 4
'再試行、キャンセルボタン	vbRetryCancel = 5
'○アイコンの種類
'×警告			vbCritical = 16
'？問い合わせ		vbQuestion = 32
'!注意			vbExclamation = 48
'i情報			vbInformation = 64
'例）
buttons = vbCritical + vbAbortRetryIgnore
'===================================
retvalue = MsgBox("メッセージ", buttons, "タイトル")
'戻り値
'ＯＫボタンが押される		= vbOK = 1
'キャンセルボタンを押す	= vbCancel = 2
'中止ボタンを押す		= vbAbort = 3
'再試行ボタンを押す		= vbRetry = 4
'無視ボタンを押す		= vbIgnore = 5
'はいボタンを押す		= vbYes = 6
'いいえボタンを押す		= vbNo =7
ーーーーーーーーーーー型変換関数ーーーーーーーーーーーーーーー
Boolean	CBool
Byte	CByte
Currency	CCur
Date	CDate
Double	CDbl
Decimal	CDec
Integer	CInt
Long	CLng
Single	CSng
Variant	CVar
String	CStr
（例）
Dim c as　Integer
c = CInt("1")'文字列を整数に型変換
ーーーーーーーーーーーデバッグ出力ーーーーーーーーーーーーーーー
Debug.Print "test"
Ctrl+Gを押してデバッグウインドウを表示させます。
ーーーーーーーーーーーフォームに値を表示ーーーーーーーーーーーー
Forms![フォーム名].Form![コントロール名] = "aaaa"

ーーーーーーーーーーー合計値を計算ーーーーーーーーーーーーーーー
合計＝DSum(レコード名,テーブル名,文字列式)
Forms![form1].Form![text1] = DSum("a", "テーブル１", "id=1")
                                                     "id='aa'"文字列式の場合

ーーーーーーーーーーーレコード数の表示ーーーーーーーーーーーーーー
レコードの数＝DCount(レコード名,テーブル名,文字列式)　１から始まるカウント数

次の例では、[受注] テーブルに含まれるレコードの総数を計算します。
intX = DCount("*", "受注") 
ーーーーーーーーーーーデータベース操作ーーーーーーーーーーーーー
'ファイル名 d:\AccessDB.mdb
' _______________________
'|        table1         |
' -----------------------
'|name text | status int |
' -----------------------

'-----------初期設定---------------
Dim MyDB As Database
Set MyDB = Workspaces(0).OpenDatabase("d:\AccessDB.mdb") 'データーベースファイルのオープン、フルパスの指定が必要
Dim MyTable As Recordset
Set MyTable = MyDB.OpenRecordset("table1", dbOpenDynaset) 'レコードのオープン
'--------------EOFのチェック---------------
'If MyTable.EOF = True Then 'レコードのEOFのチェック
'End If

'-------------現在の位置と値----------------
'Forms![form1].Form![edit1] = MyTable.RecordCount '先頭を１とした現在のレコード位置
'Forms![form1].Form![edit1] = MyTable![Name] '現在のレコード位置の値を取り出す
'Forms![form1].Form![edit1] = MyTable![status]

'--------------レコードの移動---------------
'MyTable.MoveLast 'レコードの最後に移動　レコードが無い場合はエラーがでます
'MyTable.MoveFirst '先頭レコードに移動
'MyTable.MoveNext '次のレコードに移動
'MyTable.Move (1) '先頭を0から数えた位置に移動

'--------------レコードの追加---------------
'MyTable.AddNew '新しいレコードの追加
'MyTable![Name] = "inaba1" '     ↑一行追加するごとにUpdateする必要あり
'MyTable![status] = 101 '        ↓
'MyTable.Update 'データーベースに反映

'---------------レコードの削除--------------
'MyTable.Delete '現在の位置のレコードを削除

'-------------終了処理----------------
MyTable.Close
MyDB.Close