Errore in query

[Gio&Ste]

mi passo da una pagina un valore che vorrei usare in una query

faccio cosi:

<%
	Set RecSet = Server.CreateObject("ADODB.Recordset") 
	Visa = "SELECT * FROM news WHERE Tipo=" & tipo & " AND data=#" & SqlDate & "# ORDER BY Id" 
	RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic %>

Il problema è Tipo, è una stringa di testo, come la devo inserire nella query?

[Roby_72]

Visa = "SELECT * FROM news WHERE Tipo='" & tipo & "' AND data=#" & SqlDate & "# ORDER BY Id"

Roby