CR7: Server has not yet been started

[Frehley]

Mi problema viene cuando quiero mostrar un reporte armado en CR7 con su extensión .rpt.

Este es el codigo:

Código PHP:

  Dim reginfo As New ADODB.Recordset 
Dim CrxInfor As CRAXDRT.Report 
Dim CrxApp As New CRAXDRT.Application 
 
 
 
Private Sub Form_Load() 
 
   Set reinfo = New ADODB.Recordset 
    reginfo.Open "SELECT * From ventas", Form1.cn, adOpenDynamic, adLockOptimistic 
    Screen.MousePointer = 11 
     
    Set CrxInfor = CrxApp.OpenReport(App.Path & "\Reportes\ventas.rpt") 
    reginfo.Close 
    Set reginfo = Nothing 
    CrxInfor.DiscardSavedData 
    CrxInfor.Database.SetDataSource reginfo 
     
    With CRViewer1 
     
        .ReportSource = CrxInfor 
        .EnableExportButton = True 
        .DisplayGroupTree = False 
 
        .EnableDrillDown = False 
        .EnableSelectExpertButton = False 
        .ViewReport 
 
         
    End With 
     
    Screen.MousePointer = 0 
End Sub  
   

La cadena de conección está en el form1:

Código PHP:

  strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb" 
Set cn = New ADODB.Connection 
 
cn.ConnectionString = strconn 
cn.CursorLocation = adUseClient 
cn.Open  
   

El recordset y la cadena de conección están declaradas, todas las referencias están hechas, incluso por las dudas marqué todas las de CR7.
Pero siempre me dá el error:

Server has not yet been started


Cabe aclarar que el error solo lo muestra desde VB6, si lo abro desde CR directamente funciona bien.

Espero que me puedan dar una mano!

Salu2!

[Frehley]

Puede ser que el problema sea porque estoy tratando de usar una base de datos de Access 2000? Tal vez CR7 solo soporte hasta 97...

Si alguien sabe por favor digame >_<

Salu2!

[Frehley]

Ya lo solucioné, aparentemente era que solo lee hasta Access 97.

Salu2!