Sub Accessデータベースの最終行を取得する()
    
    Set DB接続 = CreateObject("ADODB.Connection")
    Set DB読込 = CreateObject("ADODB.Recordset")
    
    DB接続.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\test.accdb;"
    
    SQL_最終行 = "SELECT COUNT(*) FROM テーブル1" 'テーブル1がテーブル名
    
    DB読込.Open SQL_最終行, DB接続
    
    Range("A1").CopyFromRecordset DB読込
    
    DB読込.Close
    DB接続.Close
        
End Sub