文件临时错误__。rpt

Question

我使用数据库名称Test进行了报告。 SQL Server作为后端。
使用过的DSN。甚至在ODBC DataSource中配置 现在我将报告更改为mainDb 有些报告工作正常。其他人在数据库名称更改时抛出错误。
出现以下错误信息 对此有何解决方案？

我在互联网上搜索，发现基于无效登录或某些实施错误的类似错误。我不知道我的错误到底意味着什么。

我的小代码发布在这里。

Private Sub DisplayReport()

    Try

 Dim report As New Summary
 Dim pubdbname as String = "mainDb" '-------This name is correct.'
  With report
            .DataSourceConnections.Item(0).SetConnection("bonny", Pubdbname, True)
            .SetParameterValue("@CompYear", PubYear1)
            .SetParameterValue("@CompNo", mComp1)
            .SetParameterValue("@accode", PubAcCode)

            .SetParameterValue("@Trtype", PubTrTp)
            .SetParameterValue("@SBkCd", PubSBkCd)


            .SummaryInfo.ReportTitle = "Summary Report" & "_" & Format(CDate(FromDate.Text), "ddMMyyyy") & "-" & Format(CDate(ToDate.Text), "ddMMyyyy")
            CReports.CRViewer.ReportSource = report
            CReports.Show()
        End With
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

谢谢。