'数値型の場合はそのままでセットします。
'テキスト型の場合は ' で囲みます。
'日付型の場合は # で囲みます。
Private Sub コマンド0_Click()
Dim sql As String
sql = "INSERT INTO T_顧客マスター(名前,郵便番号,住所,年齢,更新日) " & _
"VALUES('梅田千一','123-4555','埼玉県大間市大間町大味455-45',28,#2006/11/23#)"
'dbFailOnErrorは指定すると、エラーが発生時に更新をロールバックします。
'指定がなければ、矛盾した更新でも実行されます。
CurrentDb.Execute sql, dbFailOnError
End Sub