[23306]

كود :

Public Class Form1

    Private con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb")
    Private dt As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = dt

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using da As New OleDb.OleDbDataAdapter("SELECT * FROM [Table1] WHERE [fullName]=@fn", con)
            da.SelectCommand.Parameters.AddWithValue("@fn", TextBox1.Text)
            da.Fill(dt)
        End Using
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        dt.Clear()
    End Sub

End Class