Bueno buscando encontre este codigo pero al cargar el reporte me da este error:
Excepción no controlada del tipo 'System.Exception' en crystaldecisions.crystalreports.engine.dll
Información adicional: No se ha podido cargar el informe.
asi lo cargo:
Código:
Dim crp As New ReportDocument
Dim ds As DataSet
Dim Con As New OleDbConnection
Dim crOledbConnection As OleDbConnection
Dim crOledbDataAdapter As OleDbDataAdapter
ds = New DataSet
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Jorge\Mis documentos\Visual Studio Projects\base\vehiculos.mdb; Persist Security Info=False;Jet OLEDB:Database Password=hola"
Con.Open()
crOledbDataAdapter = New OleDbDataAdapter("select * from vale", Con)
crp.Load("C:\Report1.rpt") '<--Aqui da el error
crOledbDataAdapter.Fill(ds, "vale")
ds.Tables(0).TableName = crp.Database.Tables(0).Name()
crp.SetDataSource(ds)
CrystalReportViewer1.ReportSource = crp