Visual Basic - ERROR 20599

AL TRATAR D MOSTRAR UN REPORTE ME SLE EL SIGTE ERROR ERROR 20599 NO SE PUEDE ABRIR EL SERVIDOR SQL.. HE UTILIZADO TODOS LOS CODIGOS HABIDOS Y X HABER Y N FUNCIONA... AQI ESTAN LOS Q HE UTILIZAD

'With CrystalReport1
'.ReportFileName = App.Path & "\analisis.rpt"""
'.DiscardSavedData = True
''if you have filter for selection formula
''.SelectionFormula = "{Field1.Name}='" & strField & "'"
'.Action = 1
'End With

'''CrystalReport1.Connect = "DBQ=<CRWDC>DBQ=" + App.Path & "\bd1.mdb"
'''CrystalReport1.SQLQuery = " SELECT * FROM analisis order by nummuestra Asc"
'''CrystalReport1.ReportFileName = App.Path & "\analisis.rpt"
'''
'''CrystalReport1.WindowState = crptMaximized
'''CrystalReport1.Destination = 0
'''CrystalReport1.Action = 1


'Screen.MousePointer = 11
'CrystalReport1 = App.Path & "\analisis.rpt"
'CrystalReport1.ReportFileName = App.Path & "\analisis.rpt"
'CrystalReport1.Connect = "DBQ=<CRWDC>DBQ=" + App.Path & "\bd1.mdb"
''CrystalReport1.SelectionFormula = MySql '<----- ESTE RENGLÓN SÓLO SI ENVIAS UN FILTRO
'CrystalReport1.Action = 1

'
'CrystalReport1.Reset
' CrystalReport1.WindowState = crptMaximized
' CrystalReport1.ReportFileName = App.Path & "\analisis.RPT"
' CrystalReport1.WindowTitle = "Reporte General de Muestras Analizadas"
' CrystalReport1.Action = 1
'Screen.MousePointer = 0

Amigo buenas noches,

Ese error sale cuando al reporte le das mal la direccion de la base de datos

la solucion es en el menu database, haces click en set location y ahi le das la direccion.

Quitale esta linea 'CrystalReport1.Connect = "DBQ=<CRWDC>DBQ=" + App.Path & "\bd1.mdb"'

si quieres mandame un correo y te mando una rutina para generar reportes.

Saludos desde caracas - venezuela