1: 2: 3: 4: 5:
Dim DocsRow() As Data.DataRow DocsRow() = DsDocsRelDocs.Tables("DocsRelDocs").Select("ReferralID = " & ReferralID) For Each DataRow In DocsRow() DocsRow("SortedRelDocs") = SortedRelDocs Next