サンプルでは、DoCmdオブジェクトのRunSQLメソッドを使って、
特定のレコードを削除するSQLステートメントを実行しています。

　このSQLステートメントは、DELETEステートメントを使って、
FROM句で指定したテーブルからWHERE句の条件を満たすレコードを削除する
削除クエリが定義されています。

　サンプルを実行するには、フィールド「商品番号」があるテーブル
「商品管理」を作成して、商品番号「1000」のレコードを入力します。

● サンプル　●

Sub Sample()
    Dim myCode As Integer
    Dim SQLstr As String
    
    myCode = 1000
    
    SQLstr = "DELETE FROM 商品管理 WHERE 商品番号 = " & myCode
    
    DoCmd.RunSQL SQLstr

End Sub