Не получается настроить редактирование записи в таблице Access - VB

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

Здравствуйте! Прошу вашего совета, а то что-то совсем я уже, никак разобраться не могу в чем проблема.
Есть код на кнопке, при нажатии которой берутся данные из таблицы,они заполняются в другой форме,где их можно отредактировать и сохранить. Вроде бы все просто, но у меня выбирает только первую запись в таблице,всегда! И я не могу понять почему, в другой работе этот же код работает исправно, вот он

Private Sub Редактировать _Click()
DoCmd.OpenForm "Form-edit_undercontrol"
Forms![Form-edit_undercontrol].Form.Caption = "Редактировать"
 [Forms]![Form-edit_undercontrol]![Text0].SetFocus
    
    Dim MyL As ADODB.Recordset
    Set MyL = New ADODB.Recordset
    MyL.Open "Select * From empl_undercontrol", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    [Forms]![Form-edit_undercontrol]![Text0] = Me.[ACCOUNT_OWNER_ID]
    [Forms]![Form-edit_undercontrol]![Text2] = Me.[ACCOUNT_OWNER_NAME]

Exit_Редактировать_Click:
    Exit Sub

Err_Редактировать_Click:
    MsgBox Err.Description
    Resume Exit_Редактировать_Click
End Sub

табличка у меня маленькая,всего два поля и вот такая ерунда...Заранее спасибо!

Решение задачи: «Не получается настроить редактирование записи в таблице Access»

textual
                            Листинг программы 
                        

                            Private Sub Редактировать _Click()
DoCmd.OpenForm "Form-edit_undercontrol"
Forms![Form-edit_undercontrol].Form.Caption = "Редактировать"
 [Forms]![Form-edit_undercontrol]![Text0].SetFocus
    
    Dim MyL As ADODB.Recordset
    Set MyL = New ADODB.Recordset
    MyL.Open "Select * From empl_undercontrol", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    [Forms]![Form-edit_undercontrol]![Text0] = Me.[ACCOUNT_OWNER_ID]
    [Forms]![Form-edit_undercontrol]![Text2] = Me.[ACCOUNT_OWNER_NAME]

    

Exit_Редактировать_Click:
    Exit Sub

Err_Редактировать_Click:
    MsgBox Err.Description
    Resume Exit_Редактировать_Click
End Sub

                        