VBA访问 - 未将焦点设置在字段上

Question

我正在制作一个Sub来检查该字段的数据但是在错误之后Field没有将焦点设置在该字段上！

Private Sub txtOpenWindow_LostFocus()
On Error GoTo TrataErro
Dim strSQL As String
Dim rst As ADODB.Recordset
    strSQL = "select HORARIO from tblTipoHorario where Horario = #" & Me.OpenWindow & "#"

    Set rst = New ADODB.Recordset
    With rst
         .ActiveConnection = CurrentProject.Connection
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = strSQL
         .Open
    End With
    If Not rst.EOF Then
        MsgBox "Este Horario não pode ser utilizado para uma janela de programação comum!", vbOKOnly, "Brain"
        Me.Undo
        Me.txtOpenWindow.SetFocus
    End If
Exit Sub
TrataErro:
    MsgBox "Encontrado um erro no processo. " & Chr(13) & "Entre em contato com a área de TI e informe os dados abaixo. " & Chr(13) & Chr(13) & _
           "Mensagem: " & Chr(13) & Err.Description & Chr(13) & Chr(13) & "Objeto: " & Me.Name & " - OpenWindow_LostFocus", vbExclamation, "BRAIN - Alerta"
    RegistraLog "OpenWindow_LostFocus", Me.Name, "Erro: " & Err.Description
End Sub