[asemshahen5]

كود :

Dim StrSql As String="Select * From TableName Where ColumnName ='"& Txt_ColumnName.Text &"'"
'أو هذا
Dim StrSql As String="Select * From TableName Where ColumnName Like '%"& Txt_ColumnName.Text &"%'"

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DB0.mdb;User Id=admin;Password=;")
Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)
Dim dt As New DataTable
dt.Clear()
da.Fill(dt)