VB Code:
Dim CallBackList As String
CallBackList = "Telephone_Number,DateOfCallBack"
Set db = Nothing
If db Is Nothing Then OpenConnectionCampaign
Set CallBack = New ADODB.Recordset
CallBack.Open "SHAPE {SELECT '" & CallBackList & "' FROM Data WHERE CallBack = 'True' } AS ParentCMD2 APPEND ({SELECT '" & CallBackList & "' FROM Data WHERE CallBack = 'True'} AS ChildCMD2 RELATE Telephone_Number TO Telephone_Number) AS ChildCMD2", db, adOpenStatic, adLockOptimistic
bCancelResult = False
Set grdDataGrid.DataSource = CallBack.DataSource