or
							| Public Shared Function ReturnTypes() As ForecastTypeCollection | 
| Dim pTypeCol As New ForecastTypeCollection | 
| For i As Integer = 0 To 2 | 
| Dim pType As New ForecastType | 
| Select Case i | 
| Case 0 | 
| With pType | 
| .ValueMember = "Both" | 
| .DataMember = "" | 
| End With | 
| Case 1 | 
| With pType | 
| .ValueMember = "UK" | 
| .DataMember = "UK" | 
| End With | 
| Case 2 | 
| With pType | 
| .ValueMember = "International" | 
| .DataMember = "EX" | 
| End With | 
| End Select | 
| pTypeCol.Add(pType) | 
| Next | 
| Return pTypeCol | 
| End Function | 
| Public Shared Function ReturnPeriods() As PeriodCollection | 
| Dim p As New PeriodCollection | 
| For i As Integer = 1 To 12 | 
| Dim pPeriod As New Period | 
| With pPeriod | 
| .DataMember = i | 
| .ValueMember = i | 
| End With | 
| p.Add(pPeriod) | 
| Next | 
| Return p | 
| End Function | 
| Public Sub New() | 
| InitializeComponent() | 
| Report.ReportParameters()(0).UI.AvailableValues.DataSource = ReturnTypes() | 
| Report.ReportParameters()(0).UI.AvailableValues.DataMember = "DataMember" | 
| Report.ReportParameters()(0).UI.AvailableValues.ValueMember = "ValueMember" | 
| Report.ReportParameters()(1).UI.AvailableValues.DataSource = ReturnPeriods() | 
| Report.ReportParameters()(1).UI.AvailableValues.DataMember = "DataMember" | 
| Report.ReportParameters()(1).UI.AvailableValues.ValueMember = "ValueMember" | 
| End Sub | 
| Private Sub ForecastNextPeriod_NeedDataSource(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.NeedDataSource | 
| Try | 
| Dim pCalendar As Calendar = ReturnCurrentYearAndPeriod() | 
| Dim pType As String = ReportParameters("Type").Value | 
| Dim pPeriodCount As Integer = Me.ReportParameters("PeriodCount").Value | 
| DirectCast(sender, Telerik.Reporting.Processing.Report).DataSource = ReturnForecastReport(pPeriodCount, pCalendar.Period, pCalendar.Year, pType) | 
| Catch ex As Exception | 
| MsgBox(ex.ToString) | 
| End Try | 
| End Sub | 

an error message  saying  that  unable to cast System.DateTime   to System.String
Provide me solution  for that


Alicja





