Excel VBAでAccessのレコードを取得したい

Question

前提

掲題の件についてご教示ください。
ExcelのVBAでAccessのDB内のレコードを取得するプログラムを作成しています。
Accessのファイル

テーブル名：testtable
フィールドは以下の3つです。
id,name,comment

実現したいこと

VBAの中で使用している変数（key）を含むレコードを取得したい。

発生している問題・エラーメッセージ

以下のSQL文を作成して実行しているのですが、以下のエラー文が表示され実行できません。

strSQL = "SELECT * FROM testtable WHERE name" & "=" & key & ""
※keyはVBAの変数です。

実行時エラー'2147217900(80040e14)';
クエリ式'name=変数の中身'の数値構文エラーです。

該当のソースコード

※変数関連
Dim adoCn As Object 'Accessへ接続用のオブジェクト
Dim strSQL As String 'SQL文
Dim adoRs As Object 'ADOレコードセットオブジェクト
Dim DBpath As String 'Accessファイルのフルパス
DBpath = "ファイルのパス"
Dim key As String
Dim myArray As Variant  

'Accessファイルへ接続する
Set adoCn = CreateObject("ADODB.Connection") 
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & "\" & strFileName & ";" 

  
'オブジェクトの設定（取得用）
Set adoRs = CreateObject("ADODB.Recordset")
adoRs.CursorLocation = 3 ' クライアントサイドカーソルに変更
  
key = Cells(i, 2).Value'keyはセルのValueを入れています。
    
'SQLに問い合わせ
strSQL = "SELECT name FROM testtable WHERE name" & "=" & key & ""

★ここでエラーが表示されます。
adoRs.Open strSQL, adoCn

よろしくお願いします。

Answer 1

nameフィールドのデータ型はテキスト型でしょうか？だとしたら引用符(')で囲む必要があります。
下記でどうでしょう。

strSQL = "SELECT name FROM testtable WHERE name='" & key & "'"

Comments

[student20220705]

お忙しい中ご回答ありがとうございました。
いただいた内容で解決できました。

Answer 2

自己解決しました。
市グルコーテーションを入れることでうまく動きました。
strSQL = "SELECT * FROM testtable WHERE name='" & key & "'"

ありがとうございました。