Por favor, nece sito ayuda....
tengo lo siguiente:
--------------------------------------------------------------------------
Dim Report As New CrystalReport1
Dim db As adodb.Connection
Dim rs As adodb.Recordset
Set db = New Connection
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=C:\Documents and Settings\MANU\Escritorio\Copia (2) de Prueba CrystalReports\B_Transportes.mdb;"
Set rs = New adodb.Recordset
rs.Open "SELECT FECHA, CONDUCTOR FROM MOVFACTURAR", db, adOpenStatic, adLockOptimistic
Report.Database.SetDataSource
--------------------------------------------------------------------------
pero cuando llega la parte de REPORT.DATABASE.SETDATASOURCE me da un error que dice: El subindice esta fuera del intervalo
Alguien me puede ayudar por favor.