Visual Basic - ayuda mu urgente

si que es urgente pero az lo q puedas q se agradece

Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
db.Open "dsn=r", "ad", "ad" 'conexion a Base de datos 'mediante ODBC
'''''''no se se si sirve rec.Open "select * from facli where localid = '" & Text1.Text & "' order by localid", db, adOpenKeyset, adLockOptimistic 'actualizo la sentencia

Set Report = Appl.OpenReport(App.Path & "\clientes.rpt")
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

sin lo de apostrofe consigo sacar todo los clientes,como meto la formula para los de localid=barcelona

me entiendes?¿

con comillas simples dentro de las comillas

localid = ' " & Text1.Text & "' order by localid"