Crystal Report y VB 6

[ozelu]

Hola a todos, queria hacer una consulta, tengo una BD Access y tengo 3 campos en la tabla Gastos (Concepto, Cantidad, Fecha), tengo el codigo siguienta para rellenar el rpt:

Dim rs As Recordset
Dim base As Database
Dim Concepto As String
Set base = OpenDatabase("C:\Bares.mdb")
Set rs = base.OpenRecordset("Select * from Gastos")
reporte.ReportFileName = "c:\zdiaria.rpt"
reporte.DiscardSavedData = True
While Not rs.EOF
reporte.SelectionFormula = "{Gastos.Concepto}=" & rs!Concepto
rs.MoveNext
Wend
reporte.Action = 1
reporte.ReportFileName = ""

pero cuando sale del bucle y va a lanzar el reporte, me dice error en la formula Record_Selection, '{Gastos.Concepto}=Coca Cola' se esperaba un numero, monto monetario, etc...

rs!concepto esta definido como campo de texto
Gracias de antemano.