Sub Grid2_ADD(ByVal source As Object, ByVal e As DataGridCommandEventArgs)Handles Grid2.ItemCommand
Dim nombre, apellido As String
Dim itemCell As TableCell = e.Item.Cells(1)
nombre = e.Item.Cells(0).Text
apellido = e.Item.Cells(1).Text
If e.CommandSource.CommandName = "AddToTB" then
RefCli.Text = nombre
end if
End Sub