VBA.SQL запрос при открытии формы

[katttes]

Здравствуйте!
Приведенный ниже код выдаёт ошибку: "Невозможно присвоить значение объекту". Если тот же самый код перенести на событие Кнопка1_Click(), то все работает. Объясните пожалуйста в чем ошибка.

Private Sub Form_Open(Cancel As Integer)
Static g As String
g = Environ("USERNAME")
Dim rst As DAO.Recordset
Dim strSql As String
strSql = "SELECT [Список сведений о пользователях].ИД FROM [Список сведений о пользователях] where [Список сведений о пользователях].[Учетная запись] = 'OMGP\" + g + "'"
Set rst = CurrentDb.OpenRecordset(strSql)
Me.Исполнитель.Value = rst![ИД]
Set rst = Nothing
End Sub

Заранее спасибо!

[Андрэич]

Попробуйте на загрузку формы

[katttes]

Заработало. Спасибо большое