Private Sub UltraGrid1_AfterRowActivate( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles UltraGrid1.AfterRowActivate If Me.UltraGrid1.ActiveRow Is Nothing Then Return Dim theEmployee As Employee = _ DirectCast(Me.UltraGrid1.ActiveRow.ListObject, Employee) Me.UltraChildGrid.DataSource = Nothing Me.UltraChildGrid.DataSource = _ DataManager.GetAccountsByEmployee(theEmployee) End Sub