→→→DataGridを編集可能かつ行の追加を不可にする

Dim dSet As DataSet = New DataSet("t_テスト")

Dim dView As DataView

Dim dAdp As OleDbDataAdapter

Dim ocn As OleDbConnection = New OleDbConnection

ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4..0;

                                Data Source=D:\***.mdb;Persist Security Info = False"

dAdp = New OleDbDataAdapter("SELECT * FROM テスト", ocn )

dAdp.Fill( dSet, "t_テスト" )

dView = New DataView( dSet.Tables("t_テスト"))

'新しい行を追加できないようにする

dViewAllowNew = False

DataGrid1.DataSource = dView

------------------------------------------------------------------

<クリックされたセルの行番号、列番号を取得>

Private Sub DataGrid1_MouseUp(ByVal sender As Object, 

                    ByVal e As System.Windows.Forms.MouseEventArgs) 

                                                                 Handles DataGrid1.MouseUp

   Dim hitInfo As DataGrid.HitTestInfo

   hitInfo = sender.HitTest( e.X , e.Y )

    MessageBox.show("クリックした行:" & hitInfo.Row + 1 & ControlChars.NewLine &

                              "クリックした列:" & hitInfo.Column + 1, "通知結果")

End Sub