Не работает SQL запрос

Привет всем.
Может кто подскажет.
Есть код :
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [TNFS] WHERE [Razd2]>2"
rs.Open stSql, con, 1 '1 = adOpenKeyset

Всё работает, но с числами, а мне нужно работать со строками, т.е. реализовать запрос примерно: SELECT * FROM TNFS WHERE ((DEC) Like "3CC08942AEAA*")

WHERE ((DEC) Like "3CC08942AEAA%")

А как кавычки ставить? Я сечас ставлю примерно так:
s=Chr(34) & "String" & Chr(34)
Понимаю что глупо, а ничего поделать не могу :-) Но в любом случае спасибо :-)

двойные - удваивать. одиночные - как есть

s=" ""String"" "

Огромное спасибо. Всё заработало ))))