Pues no mas no se deja me da este error:
Código:
Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll
Dim crp As CrystalReport1
Dim ds As DataSet
Dim crOledbConnection As OleDbConnection
Dim crOledbDataAdapter As OleDbDataAdapter
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb Persist Security Info=False")
crOledbDataAdapter = New OleDbDataAdapter("select * from tabla1", Con)
ds = New DataSet
crOledbDataAdapter.Fill(ds, "tabla1") <--Aqui
crp = New CrystalReport1
crp.SetDataSource(ds)
CrystalReportViewer2.ReportSource = crp
Que puede ser