test

    '抽出条件はフィールドAがシングルクオート1文字
    'ダブルクオートで囲むことでエスケープ不要
    strSQL = ""
    strSQL = strSQL & "SELECT * "
    strSQL = strSQL & "FROM t99_サンプル "
    strSQL = strSQL & "WHERE フィールドA = " & Chr(34) & "'" & Chr(34)