Boa tarde!!

Tenho varios relatórios no sistema..todos passam pelas seguintes linhas, mas apenas um dá o erro "automation error" as vezes da erro no vb e fecha o VB

 

 

 Set crpApp = New CRAXDRT.Application

    Set crpReport = crpApp.OpenReport(REPORT.ReportFileName, crOpenReportByTempCopy)

    If crpReport.HasSavedData = True Then crpReport.DiscardSavedData

    ' Seta as configurações do banco SQL Server
    If crpReport.Database.Tables.Count > 0 Then
        With crpReport.Database.Tables(1)
            .ConnectionProperties("Data Source Name") = "Cambara"    'strBanco

linha do erro -------------
            .ConnectionProperties("User ID") = "Engesoft"
            .ConnectionProperties("Password") = "digienge"
        End With
    End If