Probe con esto y no funciono

Private Sub Command1_Click()
 CrystalReport1.ReportFileName = "c:\consulta.rpt"
 CrystalReport1.Connect =
"odbc;uid=root;pwd=1234;server=127.0.0.1;driver={mysql
odbc 3.51 driver};database=basegral"
 CrystalReport1.SQLQuery = "select nombre,apellido from asociados where
apellido like 'gomez jorge%'"
 CrystalReport1.Action = 1
End Sub

tambien probe con esto y tampoco funciono

Private Sub Command1_Click()
 CrystalReport1.ReportFileName = "c:\consulta.rpt"
 CrystalReport1.Connect = "DSN=base"
 CrystalReport1.SQLQuery = "select nombre,apellido from asociados where
apellido like 'gomez jorge%'"
 CrystalReport1.Action = 1
End Sub

Responder a