Dim TmpEncoding As New System.Text.UTF8Encoding
Dim TmpReportDefinition() As Byte = TmpEncoding.GetBytes(PRdl)
TmpRsProxy.CreateReport(PReportName, PParentPath, True, TmpReportDefinition, Nothing)
Dim TmpDataSources As DataSource() = TmpRsProxy.GetItemDataSources(PParentPath & "/" & PReportName)
For Each TmpDataSource As DataSource In TmpDataSources            Dim dSource As New DataSource
Dim dDefinition As New DataSourceDefinition()            dSource.Item = dDefinition
dDefinition.Extension = "Sql"
dDefinition.ConnectString = "Data Source=" + ClsSetting.DbServerName + ";Initial Catalog=" + ClsSetting.DbName            dDefinition.ImpersonateUserSpecified = True            dDefinition.Prompt = Nothing            dDefinition.WindowsCredentials = True            dDefinition.CredentialRetrieval = CredentialRetrievalEnum.Integrated
dSource.Name = TmpDataSource.Name
Try
TmpRsProxy.CreateDataSource(dSource.Name, ClsSetting.DataSourceLocation, True, dDefinition, Nothing)
If TypeOf (TmpDataSource.Item) Is DataSourceReference Then
Dim DsReference As New DataSourceReference()
Dim ds As New DataSource 
DsReference.Reference = ClsSetting.DataSourceLocation + "/" + dSource.Name 
Dim DataSources() As DataSource = TmpRsProxy.GetItemDataSources(PParentPath & "/" & PReportName)
ds = DataSources(0)   
ds.Item = CType(DsReference, DataSourceReference)                    ds.Name = TmpDataSource.Name                    TmpRsProxy.SetItemDataSources(PParentPath + "/" + PReportName, DataSources)
End If
Catch ex As System.Web.Services.Protocols.SoapException
Throw ex
End Try
Next