Private Sub SetItemDataSrcs(Item As String, dsPath as String)

    Dim DataSources() As DataSource = Nothing
    DataSources = RS.GetReportDataSources(Item)
    Dim dsName as String = DataSources( 0 ).Name
    If (dsName = "ds") Then
	Dim reference As New DataSourceReference() 
	reference.Reference = dsPath
    	DataSources( 0 ).Item = CType (reference, DataSourceDefinitionOrReference)
    	RS.SetReportDataSources(Item, DataSources)
    End If
End Sub