grid.CurrentRow.Cells("TRR_TRP_ID").Value

Private Sub Pr_TRSPRoute_lstDataGridView_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Pr_TRSPRoute_lstDataGridView.CellEndEdit 

        If sender.Columns(e.ColumnIndex).Name = "TRR_TRP_ID" Then 

            Dim grid As DataGridView 

            Dim r As DataRow 

  
            grid = CType(sender, DataGridView) 

            r = Me.Spr_DataSet.pr_SprRoutePoints_lst.FindByTRP_ID(CType(grid.CurrentRow.Cells("TRR_TRP_ID"), DataGridViewComboBoxCell).Value) 

  
            MessageBox.Show(Me.Pr_TRSPRoute_lstBindingSource.Current("TRR_ID") + "-" + CType(grid.CurrentRow.Cells("TRR_TRP_ID"), DataGridViewComboBoxCell).Value + "-" + r("TRP_Name")) 

  
        End If 

  
End Sub