ник: joka
сделал так
Private Sub ПолеВыбораСотрудника_Change()
Dim strWhere, strSQL1, strSQL2 As String
If Len([ПолеВыбораСотрудника].Text) <> 0 Or Not IsNull([ПолеВыбораСотрудника].Text) Then
strSQL1 = "SELECT id, ФИО FROM Usys_sotr"
strSQL2 = " ORDER BY Usys_sotr.ФИО;"
strWhere = " WHERE Left(ФИО," & Len([ПолеВыбораСотрудника].Text) & ") = '" & [ПолеВыбораСотрудника].Text & "'"
Me![ПолеВыбораСотрудника].RowSource = strSQL1 & strWhere & strSQL2
Me![ПолеВыбораСотрудника].Dropdown
End If
End Sub
работает но как то криво не пойму почему??? 
завел двух сотрудников например петров и петрухин...
набираю до "петр" в списке показывает только одного петрова. набираю "петру" вываливается один петрухин...
а если начинать стирать символы, список начинает показывать обоих ...
помогите разобраться в чем дело:(