SoloCodigo

Hola a todos espero que puedan ayudarme con mi problema.

Estoy desarrollando una aplicación en Visual Basic 6 con Access y la bases de tados tiene contraseña, pero resulta que llamo a un reporte creado en Crystal Report y sale un mensaje de: No se puede abrir el servidor SQL. Por favor necesito de su ayuda, cualquier información enviar a maalliro30@yahoo.es

Ahí les dejo el código que utilizo, haber si me indican que tengo que agregar o quitar.

Public Sub Imprimir()
If RstCorrela.RecordCount > 0 Then
   On Error Resume Next
   FrmMain.Crp.DataFiles(0) = App.Path & "\TVCAB.mdb"
   Call mError(Err.Number)
   FrmMain.Crp.ReportFileName = App.Path & "\Reportes\RptCorrelativos.Rpt"
   FrmMain.Crp.Action = 1
   Call mError(Err.Number)
Else
    MsgBox "No existen regitros para imprimir", vbInformation, "Informativo"
End If
End Sub