Crystal Report - Problema con Selection Formula

Hola: Tengo un informe que llamo desde visual, utiliza 2 conecciones, el problema es que al pasar "Selection Formula" como parametro desde visual el informe no se muestra, si por el contrario omito la linea de "Selection Formula" el informe aparece.

El código que utilizo es el siguiente:

Gracias.

Crystal2.Connect = Coneccion1
Crystal2.Connect = Coneccion2
Crystal2.ReportFileName= "\\SERV1\Reportes\producto.rpt"
Crystal2.SelectionFormula = "{COD.PROD}=" & Codigo & ""
Crystal2.PrintReport

Lo posible causa se esto es la formula ya que si estas mandando un numero quedaria de la siguinte manera

Crystal2.SelectionFormula = "{COD.PROD}=" & Codigo
y si por su parte estas mandando un caractero o string quedaria de la siguiente manera

dim c as string
c= """"
Crystal2.SelectionFormula = "{COD.PROD}=" & c & Codigo & c & "

espero te funcione