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