Pasar una SQL a Crystal Reports

With CR .ReportFileName = App.Path & "\r5.rpt" .Connect = "Data Source=Serv;UID=sa;PWD=sa;DSQ=BD;" .DiscardSavedData = True .RetrieveDataFiles .ReportSource = 0 .SQLQuery = "SELECT CONID, CONNOM,CONDES, TIPGENNOM FROM LININFCON, LININFCAT WHERE CONID=1 AND CONTIPCAT=TIPGENID" .ReportTitle = "Employee Details Report" .Destination = crptToWindow .PrintFileType = crptCrystal .WindowState = crptMaximized .WindowMaxButton = False .WindowMinButton = False .Action = 1 End With