[سعود]

حسب فهمي للمطلوب .. يفترض عدم ربط شبيكة البيانات بشكل مباشر بالمصدر لكن بالاسناد فقط واقصد اسناد القيم من المصدر للحقول بالشبيكة.

---

PHP كود :

Public Class Form1
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        d.AutoGenerateColumns = False
    End Sub

    Private Sub search(ByVal t As String)
        Dim cm As New OleDb.OleDbCommand("", con)
        cm.Parameters.Clear()
        d.Rows.Clear()
        cm.CommandText = "select  * from tb where tname=@tname"
        cm.Parameters.AddWithValue("@tname", t)

        If con.State = ConnectionState.Closed Then con.Open()
        Dim dr As OleDb.OleDbDataReader = cm.ExecuteReader
        While dr.Read
            d.Rows.Add(dr(0), dr(1), CDate(dr(2)).ToShortDateString)
        End While


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        search(TextBox1.Text)
    End Sub
End Class