Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source =" & "C:\Documents and Settings\abumuhammed alnasser\Desktop\nass.mdb"
    Dim conn As New OleDbConnection(constr)
    Dim dataset1 As New DataSet
    Dim sqlstr As String '= "select * from persons"

    Private Sub PersonsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.PersonsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.PersonsDataSet)

    End Sub

    Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'NassDataSet.nass' table. You can move, or remove it, as needed.
        'Me.NassTableAdapter.Fill(Me.NassDataSet.nass)
        'TODO: This line of code loads data into the 'PersonsDataSet.Persons' table. You can move, or remove it, as needed.
        'Me.NassTableAdapter.Fill(Me.NassDataSet.nass)
        'TODO: This line of code loads data into the 'PersonsDataSet1.Persons' table. You can move, or remove it, as needed.


    End Sub

  

  


    Private Sub PersonsBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PersonsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.PersonsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.PersonsDataSet)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PersonsDataGridView.DataSource = Nothing
        'Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =C:\Documents and Settings\abumuhammed alnasser\My Documents\persons.mdb"
        'Dim Conn As New OleDbConnection(ConStr)
        'Dim DataSet1 As New DataSet
        'Dim SQLstr As String

        sqlstr = "select * from nass where nass like '%" & TextBox1.Text & "%'"
        conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        DataAdapter1.Fill(dataset1, "nass")
        
        conn.Close()
        PersonsDataGridView.DataSource = dataset1
        PersonsDataGridView.DataMember = "nass"
            End Sub


End Class