Public Function GetConnectString(strReportPath As [String]) As String
   Dim dataSources As DataSource()
   Dim dsReference As DataSourceReference
   Dim dsDefinition As New DataSourceDefinition()
   Dim dsPath As String
   Dim strConnectString As String = ""
   Dim rs As New ReportingService2010()
   
   ' adapt to Visual Studio  2010
   dataSources = rs.GetItemDataSources(strReportPath)
 
   If dataSources IsNot Nothing Then
      Dim dsItem As DataSource = dataSources(0)
      
      If dsItem.ToString() = "DataSourceReference" Then
 
         ' for shared data source
         dsReference = DirectCast(dsItem.Item, DataSourceReference)
         dsPath = dsReference.Reference
         dsDefinition = rs.GetDataSourceContents(dsPath)
         strConnectString = dsDefinition.ConnectString
      ElseIf dsItem.ToString() = "DataSourceDefinition" Then
 
         ' for embeded data source
         dsDefinition = DirectCast(dsItem.Item, DataSourceDefinition)
         strConnectString = dsDefinition.ConnectString
      End If
   End If
   Return strConnectString
End Function