비주얼베이직 데이타그리드뷰

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\vb.net\Merchandies.accdb"
    Dim connection As New OleDbConnection(connectionString)
    Dim ds As New DataSet

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\vb.net\Merchandies.accdb"
        Dim sql As String = "SELECT * FROM [상품]"
        '        Dim connection As New OleDbConnection(connectionString)
        Dim dataadapter As New OleDbDataAdapter(sql, connection)
        'Dim ds As New DataSet()
        Dim dt As New DataTable()
        connection.Open()

        dataadapter.Fill(ds, "상품")

        connection.Close()
        DataGridView1.DataSource = ds.Tables(0)
        'DataGridView1.DataMember = "상품"
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim dv As DataView
        Dim dt = ds.Tables("상품")
        Dim sql As String = "SELECT * FROM [상품] "
        Dim dataadapter As New OleDbDataAdapter(sql, connection)

        connection.Open()
        'Dim dt As New DataTable
        'Dim MyCommand As New SqlCommand(myQuery, MyConn)
        'Dim myDataAdapter As New SqlDataAdapter(myQuery, MyConn)
        Dim MyCommand As New OleDbCommand(sql, connection)
        Dim myDataAdapter As New OleDbDataAdapter(sql, connection)
        'dataadapter.Fill(dt)
        'DataGridView1.DataSource = dt
        'connection.Close()
        dv = New DataView(ds.Tables("상품"), "[항목2] LIKE '%" & TextBox1.Text & "%'", "항목2 Desc", DataViewRowState.CurrentRows)
        DataGridView1.DataSource = dv

        'dt.DefaultView.RowFilter = "항목2 = " & TextBox1.Text
        'connection.Close()
        'DataGridView1.DataSource = dt
        connection.Close()
    End Sub
End Class