RE:Este codigo es el que tengo
Dim Resultado As String
Resultado = "SELECT " _
& "Fecha, Albaran, Horas_Nor, Horas_Ext, Horas_Noc, Horas_Fes, Dietas, " _
& "Comida, Cena, Hospedaje, Otros, Coche_Dia, Coche_Km " _
& "FROM Partes " _
& Chr(13) + Chr(10) & _
"ORDER BY Fecha "
Data1.RecordSource = Resultado
Data1.Refresh
Informe1.BoundReportHeading = "Informe de los Partes personales"
Informe1.ReportSource = crptDataControl
Informe1.SQLQuery = Data1.RecordSource
Informe1.Action = 0
creo que utilizas el control OCX este codigo funciona a la perfeccion en la OCX version 4.6 de crystal pero en la version 8 me dice que no se puede abrir la base de datos