[سعود]

اخي الكريم ساجهز باذن الله مثال سريع لتعرف فكرتي بشكل اسرع

---

كود :

Imports System.Data.OleDb

Public Class Form1
    Dim con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ar.KeyDown
        If e.KeyData = Keys.Enter Then
            Dim cm As New OleDbCommand("", con)
            cm.CommandText = "select * from tb where ar like'%" & ar.Text & "%'"

            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Dim dr As OleDbDataReader = cm.ExecuteReader
            If dr.HasRows Then
                If dr.Read Then
                    en.Text = dr.Item("en").ToString
                End If
                dr.Close()
            End If
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
        End If
    End Sub

  
End Class