Dim sErr As String
Dim Server1$, Database1$, user1$, Password1$

On Error GoTo Form_Load_Err



Dim ConnectionStr As String
Dim cmd As String, sql_username As String, trans As String

Base = "MyBase"
Server = "MyServer"
sql_username = "MyUserName"
trans = "MyTrans"

ConnectionStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
ConnectionStr = ConnectionStr + "User ID=" + sql_username + ";Initial Catalog=" + Base + ";Data Source=" + Server + ";Application Name=" + trans$

cmd = "select * from dbo.table1 with (nolock)"
con_SQL.ConnectionString = ConnectionStr
con_SQL.Open

Set rs_sql = con_SQL.Execute(cmd)
'---------------------------------------------------------------------
'Этот кусок кода отлично работает, меняет название базы и сервера
'Database1 = "MyBase2"
'Server1 = "MyServer2"
'user1 = ""
'Password1 = ""
'
'Dim ConInf As ConnectionProperties
'Set ConInf = Report.Database.Tables(1).ConnectionProperties
'
'ConInf.DeleteAll
'ConInf.Add "Provider", "SQLOLEDB"
'
'If Report.Database.Tables(1).DllName <> "crdb_ado.dll" Then
'    Report.Database.Tables(1).DllName = "crdb_ado.dll"
'End If
'
'
'ConInf.Add "Data Source", Server1
'ConInf.Add "Initial Catalog", Database1
'If (user1 = "") Then
'ConInf.Add "Integrated Security", True
'End If
''ConInf.Add "User ID", user1
''ConInf.Add "Password", Password1
'If Not Report.Database.Tables(1).TestConnectivity Then
'    MsgBox "No Connection"
'End If
'
'Report.Database.Verify
'
'Report.Database.Tables(1).Location = Report.Database.Tables(1).Location
'---------------------------------------------------------------------
Report.DiscardSavedData

Report.Database.SetDataSource rs_sql,  3 
rs_sql.Close

Report.Database.Verify
'Report.Database.Tables(1).Location = Report.Database.Tables(1).Location

'вот тут сваливается на ошибку
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Exit Sub

Form_Load_Err:
    sErr = Err.Number & " " & Err.Source & " " & Err.Description
    MsgBox sErr, vbInformation
    Exit Sub

End Sub

Report.DiscardSavedData

Report.Database.Tables( 1 ).SetDataSource rs_sql
rs_sql.Close

'вот тут после verify
Report.Database.Verify