急！！！网页下拉项如何单击操作啊？

237763335

各位老师，我们公司有个内网查电子器件的库存信息，我完成了基本的用户名密码输入登陆等操作。
然后跳转到下一网页，这个网页有个类似下拉列表的选项，我想单击其中的Search下面的Components...，但是怎么都执行不了。
请大家大牛老师帮帮忙啊！

程序如下：
Sub LoginDDEBlog()
     Dim r, i As Integer
     With CreateObject("InternetExplorer.Application")
         .Navigate "https://xxxx/emxLogin.jsp"               'xxxx表示网址
        .Visible = True
         
         Do Until .readyState = 4
             DoEvents
         Loop
     
         .document.getElementsByName("login_name").Item(0).Value = "???"      '???表示用户名
        .document.getElementById("login_password").Value = "1234"           '1234是密码
        .document.getElementById("enter").Click                             '登陆

        '上面的程序能正常登陆成功和跳转
   
         
         '下面想继续对网页操作，为什么不行呢？
        While .readyState <> 4 Or .Busy
             DoEvents
         Wend
     
         Set r = .document.all.tags("tr")
         For i = 0 To r.Length - 1
             If r(i).innerText = "Components..." Then        '得到是第几行
                MsgBox i                                                       '显示行数，输出37
                 r(i).Click
                 Exit For
             End If
         Next i
         
     End With
End Sub

跳转之后需要操作的网页HTML如图片所示。