Report requires further information - Crystal Report

Dear Team,

I got this error in my crystal report:

Report requires further information.

What will i do ?


i tried this code to solve my problem but the text with green color returns nothing. Is there any other way of doing this?

Protected Sub CystalReportViewer1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
If VKey > 0 Then


Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim reportPath As String = Server.MapPath("../rptReportReceive.rpt")


Dim conStr As String
Dim userID As String
Dim pw As String
Dim serverName As String
Dim dbName As String
Dim i As Integer
Dim j As Integer

Dim crDataBase As Database
Dim crTables As Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
Dim crConnInfo As New ConnectionInfo()
Dim crTableLogonInfos As New TableLogOnInfos()
Dim crTableLogonInfo As New TableLogOnInfo()


' Get db conn settings
conStr = System.Configuration.ConfigurationManager.AppSettings.Item("ConnectionString")
' Get user id
i = InStr(1, conStr, "uid") + 8
j = conStr.Length + 1
userID = Mid(conStr, i, j - i)
' Get pw
i = InStr(1, conStr, "Password") + 9
j = conStr.Length + 1
pw = Mid(conStr, i, j - i)
' Get server name
i = InStr(1, conStr, "Data Source") + 12
j = InStr(i, conStr, ";")
serverName = Mid(conStr, i, j - i)
' Get db name
i = InStr(1, conStr, "Initial Catalog") + 9
j = InStr(i, conStr, ";")
dbName = Mid(conStr, i, j - i)


crDataBase = oRpt.Database
crTables = crDataBase.Tables

For Each crTable In crTables
With crConnInfo
.ServerName = "Data Source=PH-LB-ICT-XP002"
.DatabaseName = "DMInventory"
.UserID = "sa"
.Password = "sbeato"
End With

crTableLogonInfo = crTable.LogOnInfo
crTableLogonInfo.ConnectionInfo = crConnInfo
crTable.ApplyLogOnInfo(crTableLogonInfo)
crTable.Location = dbName & ".dbo." & crTable.Name
crTable.ApplyLogOnInfo(crTableLogonInfo)
Next

Dim returnedDataView As DataView = DirectCast(SqlDataSource1.Select(DataSourceSelectArguments.Empty), DataView)
Dim DocNo As String = returnedDataView(0)("ReceiverNomer")
With oRpt
.Load(reportPath)
.SetDataSource(m_dvRecords)
.SetParameterValue("ShowWarehouse", "True")
.SetParameterValue("DocNo", DocNo)
End With
CrystalReportViewer1.ReportSource = oRpt

End If
End Sub