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フルパス & ";"
    
    '抽出する条件を指定
    会社名 = "A社"
    
    SQL文 = "SELECT 会社名,販売数 " & _
            "FROM テーブル1 " & _
            "WHERE 会社名 = '" & 会社名 & "'" 'テーブル1から、A社の会社名と販売数を取得
            
            '（SQLの中身全文）
            'SELECT 会社名,販売数
            'FROM テーブル1
            'WHERE 会社名 = 'A社'
    
    'データベースをSQLの条件で読込
    DB読込.Open SQL文, DB接続
    
    Worksheets("Sheet1").Cells(1, "A").CopyFromRecordset DB読込 'A1へ取得する
    
    DB読込.Close
    DB接続.Close

End Sub