или параметры подключения к серверу БД по отдельности, и не заставлять пользователя авторизоваться на сервере второй раз.

        Dim logOnInfo As New TableLogOnInfo()
        Dim i As Integer
        Try
            Dim paramFields As ParameterField
            Dim CR_R As New ReportDocument()
            OpenFileDialog1.Filter = "Crystal Reports|*.RPT"
            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                CR_R.Load(OpenFileDialog1.FileName)
            End If
            For i = 0 To CR_R.Database.Tables.Count - 1
                logOnInfo.ConnectionInfo.ServerName = CS_Server
                logOnInfo.ConnectionInfo.DatabaseName = CS_Database
                logOnInfo.ConnectionInfo.UserID = CS_User_Id
                logOnInfo.ConnectionInfo.Password = CS_PWD
                CR_R.Database.Tables.Item(i).ApplyLogOnInfo(logOnInfo)
            Next i
            CrystalReportViewer1.ReportSource = CR_R
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try