Все ли данные, которые нужны вашему отчету, присутствуют в вашем наборе данных?
CType(Adp.GetData(), DataTable)
Если это так, то вам не нужно устанавливать информацию о соединении, поскольку вы уже отправили все данные в отчет и не должны пытаться запросить дополнительные данные с сервера.
Edit:
ли
Adp.GetData()
получить все данные для отчета? Если это так, удалите весь приведенный ниже код и повторите попытку:
Client.EnableDatabaseLogonPrompt = False
Dim ConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo
ConnectionInfo.ServerName = "MyServer"
ConnectionInfo.DatabaseName = "MyDB"
ConnectionInfo.UserID = "MyUser"
ConnectionInfo.Password = "MyPassword"
ConnectionInfo.Type = CrystalDecisions.Shared.ConnectionInfoType.SQL
ConnectionInfo.AllowCustomConnection = True
For Each TableLogOnInfoVar As TableLogOnInfo In ClientReportViewer.LogOnInfo
TableLogOnInfoVar.ConnectionInfo = ConnectionInfo
Next