creating a dataset from existing dataset

First, thanks to all who helped on my previous question regarding copying a
datatable to a new datatable.

I have struggled and struggled with this and I just am not getting it.

Here is my code. I am displaying a dataset in a datagrid and using a
checkbox on the datagrid items, I need to create a new dataset to bind to a
repeater. The checkbox things work and I can see in debug that my
destination table has the desired row count.

However, the repeater is not displaying any items. Viewing the source in
IE, I can see that the values are blank.

---
Private Sub btnSelect_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnSelect.Click
'Copy the selected Physicians to the Physicians Referred repeater

'Clone the dataset for the datagrid to used by the repeater with
' the selected physicians
Dim DScptPhysicianSearch As New DataSet
DScptPhysicianSearch = CType(Session("cptPhysicianSearchDS"), DataSet)
Dim DScptPhysicianReferred As New DataSet
DScptPhysicianReferred = DScptPhysicianSearch.Clone

'Get a reference to the tables and clear existing data
Dim DTSource As DataTable =
DScptPhysicianSearch.Tables("cptPhysicianSearch")
Dim DTDest As DataTable =
DScptPhysicianReferred.Tables("cptPhysicianSearch")

'Remove existing rows from destination table
DTDest.Clear()

'Inform table objects of the primary key
Dim PrimaryKeyColumns(0) As DataColumn
PrimaryKeyColumns(0) = DTSource.Columns("PhysCode")
DTSource.PrimaryKey = PrimaryKeyColumns
PrimaryKeyColumns(0) = DTDest.Columns("PhysCode")
DTDest.PrimaryKey = PrimaryKeyColumns

'Import the selected physicians into the referred physicians table
Dim Item As DataGridItem
For Each Item In Me.dgPhysReferralSearch.Items
' Retrieve the SelectPhys CheckBox control from the
' specified item (row) in the DataGrid control.
Dim Selection As CheckBox =
CType(Item.FindControl("chkPhysSelect"), CheckBox)
' If the control is found and checked, import the row to the
destination table
If Not Selection Is Nothing Then
If Selection.Checked Then
'Extract PhysCode
Dim CurrentPhysCode As String = Item.Cells(1).Text
Dim strExpr As New System.Text.StringBuilder
strExpr.Append("[PhysCode] = ")
strExpr.Append("'")
strExpr.Append(Trim(CurrentPhysCode))
strExpr.Append("'")
Dim DRSource As DataRow() =
DTSource.Select(strExpr.ToString, "", DataViewRowState.CurrentRows)
DTDest.LoadDataRow(DRSource, True)
End If
End If
Next

'Bind the dataset to the repeater
DScptPhysicianReferred.Tables.Clear()
DScptPhysicianReferred.Tables.Add(DTDest)
Me.rptPhysReferred.DataSource =
DScptPhysicianReferred.Tables("cptPhysicianSearch")
Me.rptPhysReferred.DataBind()

End Sub
---

Thanks, Alex