あいまい検索を試す

Option Explicit
    
Private tqt As QueryTable

'QueryTableオブジェクトでデータベースを読み込む
Private Sub ExReadTable()
    Dim ssql As String
    
    'SQL文
    'ssql = "SELECT * FROM T_顧客マスター"
    ssql = "SELECT * FROM T_顧客マスター WHERE 住所 LIKE '東京都%'"
    
    'QueryTableオブジェクト
    Set tqt = ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=C:\MyHp\ExcelTips\顧客管理.accdb", Destination:=ActiveSheet.Range("B7"), SQL:=ssql)
        
    'プロパティをセット
    With tqt
        'クエリ名
        .Name = "顧客管理クエリ"
        'フィールド名を表示する
        .FieldNames = True
        'クエリ実行中もワークシートの操作が可能
        .BackgroundQuery = True
        'レコード数に合わせ行数を調整する
        .RefreshStyle = xlInsertDeleteCells
        '1分間隔で更新する
        .RefreshPeriod = 1
        'パスワード情報を保存
        .SavePassword = True
        'クエリテーブルをブックに保存する
        .SaveData = True
        '列幅を自動調整する
        .AdjustColumnWidth = True
        'クエリの実行
        .Refresh
    End With

End Sub

Private Sub CommandButton1_Click()
    'QueryTableオブジェクトでデータベースを読み込む
    ExReadTable
End Sub