รบกวนพี่ๆๆ ช่วยทีนะครับ ต้องการ ทำปุ่ม ค้นหา ในVB2010 ให้ค้นหาข้อมูลใน MS.Access แล้วให้โชว์ใน DataGridView

 Private Sub GG()

        Dim cn As OleDb.OleDbConnection
        Dim cmd As OleDb.OleDbCommand
        Dim dr As OleDb.OleDbDataReader

        Try
            cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Fainaladmin.accdb;Persist Security Info=Fals")

            cn.Open()
            Dim dt = New DataTable()

            Dim da As New OleDb.OleDbDataAdapter("select EmpID,EmpName,EmpAddress,EmpPosition from Employee", cn)
            Dim Ds As DataSet = New DataSet
            Ds.Clear()

            da.Fill(Ds, "Employee") 'เปิด ไฟล์ ที่ต้องการโชว์ จากตรงไหน




            Dim dTable As DataTable = Ds.Tables("Employee")

            DataGridView1.DataSource = dTable 'ต้องการให้มันโชว์ ที่ DataGridview 
            DataGridView1.Refresh()



        Catch
        End Try
        dr = Nothing
        cn = Nothing