Accessウインドウ画面を最背面にしたい

Private Sub FL検索_AfterUpdate()
If FL検索 <> "" Then
    Dim SQL As String
    Dim str As String
    Dim rs As Recordset



    str = Left(FL検索, 11)



    SQL = "SELECT * FROM T_FL_URL_A WHERE FL LIKE " & "'" & str & "'" & ";"

    Set rs = CurrentDb.OpenRecordset(SQL)




    Dim Check_Sheet As String
    Dim wb As Workbook
    Dim objExcel

    'エクセルオブジェクトを作成します
    Set objExcel = CreateObject("Excel.Application")
    'エクセル画面を表示します
    objExcel.Visible = True


    On Error GoTo myError
    Set wb = objExcel.Workbooks.Open(rs![URL])

    wb.Activate
    wb.Sheets("ECSS").cells(1, 1) = rs![FL]



    Set rs = Nothing

    FL検索 = ""
    FL検索.SetFocus


End If
Exit Sub
myError:                                        ''この行にジャンプします

    objExcel.Visible = False
    MsgBox "該当がありません。管理者へ問い合わせください", vbExclamation
End Sub