[emamtron2014]

وعليكم السلام ورحمة الله وبركاته
اولا :قم بعمل sub  مثلا باسم EmpName_Load
وحدد اسم الفيلد الذي يحتوي علي رقم الموظف وليكن EmpID
 كما يلي

كود :

Public Sub EmpName_Load(ByVal EmpID As String)
       Dim dtEmpName As New DataTable
       dtEmpName.Clear()
       Dim cmd As New OleDbCommand("select [EmpName] from EmpName_Table where EmpID=@EmpID", connAccess2007)
       cmd.Parameters.Add("EmpID", OleDbType.Integer).Value = EmpID
       connAccess2007.Open()
       dtEmpName.Load(cmd.ExecuteReader)
       connAccess2007.Close()
       cmd = Nothing
   End Sub

ثانيا : في حدث ال  TextChanged  للتكست بوكس الذي تريد ان تضع فيه رقم الموظف تقوم باستدعاء ال  Sub
وتكتب الكود التالي 

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       EmpName_Load(TextBox1.Text)
       comboBox1.Text = dtEmpName.Rows(0).Item(0)
   End Sub