Работа с двумя Datagrid в VB.06

Формулировка задачи:

Помогите, пожалуйста!!!! у меня есть 2 таблицы : 1) Сотрудник: ( код_сотрудника, фио, должность) Datagrid1 2) Контакты код_сотрудника, адрес,тел,эл_адрес) Datagrid2 Нужно что бы при выборе код_сотрудника в таблице Сотрудники (Datagrid1) выходила Контакты (Datagrid2) только этого сотрудника.

Решение задачи: «Работа с двумя Datagrid в VB.06»

textual
                            Листинг программы 
                        
                               Set Con = DB.Execute("SELECT tblContacts.Id,tblContacts.Address,tblContacts.Phone,tblContacts.EMail FROM tblContacts  WHERE  IdEmployee =" & Id)