Visual Basic - Actualizar datos del crystal

Private Sub Command1_Click()
Cry.CopiesToPrinter = Co.Copies
Cry.PrinterStartPage = Co.FromPage
Cry.PrinterStopPage = Co.ToPage
Cry.RetrieveDataFiles
Cry.Action = 1"me tira error 20536, alguien save que es"
End Sub
El problema que tengo es que cree un informe en cristal y en visual no lo puedo actualizar usando como reprtsourse=0 ,y si uso reprtsourse=3(data) me actualiza los datos pero no me muestra el informe como lo configure.
Ej:
reprtsourse=3
Cry.CopiesToPrinter = Co.Copies
Cry.PrinterStartPage = Co.FromPage
Cry.PrinterStopPage = Co.ToPage
Cry.RetrieveDataFiles
Cry.Action = 1

el listado me sale sin titulo y los campos con la descripcion como en la base de datos.

clientecod nombrecli
123 Juan Peres
en vez de
Codigo Nombre
123 Juan Perez