Dim objPrCol As System.Data.DataColumnDim objCldCol As System.Data.DataColumnobjPrCol = dsInvestors.Tables["Investors"].Columns["InvestorId"];objCldCol = dsInvestors.Tables["Orders"].Columns["InvestorId"];Dim objRel As System.Data.DataRelation = [ic:ccc]new System.Data.DataRelation("InvestorOrders", [ic:ccc]objPrCol , objCldCol )dsInvestors.Relations.Add(objRel )