→→→条件に合致したレコードのみDataGridに表示する

Dim dView As DataView
Dim dSet As DataSet = New DataSet
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_テスト"),"コード2", "" , DataViewRowState.CurrentRows)
DataGrid1.DataSource = dView


*DataGridの行のヘッダの幅を変更する
       DataGrid1.RowHeaderWidth = 30

*DataGridの行ヘッダを表示しない
       DataGrid1.RowHeadersVisible = False