Crystal Report - Error 9 en Crystal Reports 8

Hola.

Estoy tratando de conectar un reporte con la base de datos, pero al momento de asignar el SetDataSource me marca error 9 (El subíndice está fuera del intervalo) de la única forma que enlazo el reporte a la base es con este código, no sé si es que estoy haciendo algo mal o me falta algo...

Espero puedan ayudarme, muchas gracias

Option Explicit

Dim Conn As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim Report As New crReporte

Private Sub Form_Load()
On Error GoTo Errores
Dim Ruta As String
Din Conexion As String

Ruta = App.Path & "\Data Base\AICdb.Mdb"

Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ";Jet OLEDB:Database Password=#$%&?@"
Set Conn = New ADODB.Connection
Conn.ConnectionString = Conexion
Conn.Open Conexion

Set Rec = New ADODB.Recordset
Rec.Open "SELECT PERIODO AS [Period], FECHA_VENTA AS [Date], MONTO_VENTA AS [Amount] FROM VENTAS WHERE MONTO_VENTA IS NOT NULL", Conn, adOpenKeyset, adLockBatchOptimistic

Report.Database.SetDataSource Rec '<-- En esta lÍnea me marca error

Screen.MousePointer = 11
crvReporte.ReportSource = Report
crvReporte.ViewReport
Screen.MousePointer = 0

Errores:
If Err.Number <> 0 Then Errores

End Sub