Надо по выбору пареметра из поля со списком заполнить редактируемое связанное текстовое поле написал такой код

Private Sub КодТипСклад_AfterUpdate()

Dim strCountry As String
Dim strSQL As String

strCountry = Me.КодТипСклад
strSQL = "EXEC SPЗаказРеквизитКомис " & strCountry
If Len(strCountry) > 0 Then
Me.фирм.RowSource = strSQL
End If

Me.Controls("покупательХ1") = фирм.Column(0)

End Sub

в поле фирм значение появляется , а в поле покупательХ1 нет пока в форме не кликнешт по фирм и не повторишь afterupdate.

кодтипсклад поле со списком
SpЗаказРеквизитКомис хранимая процедура на сервере
фирм свободное поле на форме
покупательХ1 связанное текстовое поле

спасибо за ответ но е reguer ни setfocus не помогает.

извиняюсь если не корректно использую терминологию поле фирм это поле типа список не связанное с конкретным источником данных и его использую что в него запихнуть результат SP. т.к просто не знаю как его сразу запихнуть в текстовое поле у которого нет источника строк