سلام از كد زير استفاده كنيد:
ابتدا در بالاترين قسمت مربوط به كد نويسي فرمي كه Datagrid داريد برويد و كد هاي زير را بنويسيد
imports System.data
imports System.data.SqlClient
در مرحله بعدي يك متغير كانكشن ميسازيم براي اتصال به ديتابيسمون ( اين كد را بعد از خط Public Class Form1 بنوسيد) با فرض اينكه نام فرم مورد بحث Form1 باشه.
Dim con As New SqlConnection("data source=.;initial catalog=Name_Database;integrated security=true")
حالا يك تكس باكس به نام TextBox1 به فرم اضافه كنيد
يك كليد به نام Search_btn به فرمتون اضافه كنيد
براي رويداد كليك كليد كد زير رو بنويسيد
Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "select * from Sheet1$ where Columnsname='" & TextBox1.text.trim & "'"
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
If con.State = ConnectionState.Closed Then con.Open()
da.Fill(dt)
DataGridView1.DataSource = dt
con.Close()
اگر سئوالي بود درخدمتتون هستم
لطفا نتيجه رو به بنده اطلاع بديد