Sub Accessデータベースへ条件をSQLで指定してデータを追加する()
Set DB接続 = CreateObject("ADODB.Connection")
Set DB読込 = CreateObject("ADODB.Recordset")
    
    'アクセスファイルをフルパスで指定
    DBフルパス = "C:\test.accdb"
    
    'ここでデータベースへ接続
    DB接続.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBフルパス & ";"
    
    '抽出する条件を指定
    会社名 = "B社"
    販売数 = 99
    
    SQL文 = "SELECT * " & _
            "FROM テーブル1 " & _
            "WHERE 会社名 = '" & 会社名 & "'" 'テーブル1に、B社を追加したい
            
            '（SQLの中身全文）
            'SELECT *
            'FROM テーブル1
            'WHERE 会社名 = 'B社'
            
    DB読込.Open SQL文, DB接続, 2, 3, 1 '2, 3, 1で追加仕様に調整。詳細は難解なので割愛
    
    If DB読込.EOF = True Then 'EOF = Trueは、B社が既存会社名にない場合のみ追加
        
        DB読込.AddNew '追加処理
        
        DB読込!会社名 = 会社名 '会社名 書込
        DB読込!販売数 = 販売数 '販売数 書込
        
        DB読込.Update '上書処理
        
    End If
    
    DB読込.Close
    DB接続.Close

End Sub