Dim crm As CurrencyManager = Me.BindingContext(Me.dataGrid1.DataSource, Me.dataGrid1.DataMember)
Dim row as DataRowView = CType(crm.Current, DataRowView)
MsgBox(row("myColumnName1"))
MsgBox(row("myColumnName2"))

Dim crm As CurrencyManager = Me.BindingContext(Me.dataGrid1.DataSource, Me.dataGrid1.DataMember)
Dim row as DataRowView = CType(crm.Current, DataRowView)

Dim f as myModalForm = new ModalForm() ' ModalForm подчиненная форма
f.Edit(row) // Вызываем модальную подчиненную форму

Public Sub Edit(ByVal row as DataRowView)
   me.txtCompany.Text = row("name")
   ' bla-bla-bla
   Me.ShowDialog()
End Sub

Dim ts as DataGridTableStyle = New DataGridTableStyle()
ts.MappingName = "myTableName" 
Dim column as DataGridTextBoxColumn

column.MappingName = "column1" 
column.HeaderText = "Столбец 1"
AddHandler column.TextBox.DoubleClick, AddressOf DblClickHandler ' Подписались на dblclick
ts.GridColumnStyles.Add(column)

column = Nothing
column.MappingName = "column2" 
column.HeaderText = "Столбец 2"
AddHandler column.TextBox.DoubleClick, AddressOf DblClickHandler
ts.GridColumnStyles.Add(column) 

' и т.д для всех столбцов
dataGrid1.TableStyles.Clear() ' Очистили TableStyles collections
dataGrid1.TableStyles.Add(ts)  ' добавили TableStyle в наш DataGrid

Private Sub DblClickHandler(ByVal sender As Object, ByVal e As EventArgs)
    MsgBox("DblClick")
End Sub

Private Sub EnterClick(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            MessageBox.Show("Click Enter")
        End If
    End Sub

AddHandler DataGridTextBoxColumn6.TextBox.KeyUp, AddressOf EnterClick

 uid  =  S a