如何处理webbrowser的弹出登陆对话框，使之不弹出，而且完成自动登陆？高人请指点！！

先谢了！
我用以下代码来显示Reporting Service的报表（基本验证方式），能够显示Reporting Server对应的ReportServer下的内容，但是，当我点击文件夹或报表都会弹出登陆对话框，我希望是能够自动登陆，如何实现啊？说明：DATA1是验证串。  Dim data1  As String
  Dim sUrl As String

  data1 = "Authorization: Basic QURNSU5JU1RSQVRPUjox" '& vbCrLf _
          & "Connection: Keep-Alive"
  sUrl = "http://REPORINGSVR/ReportServer"  Call WebBrowser1.Navigate(sUrl, , , , data1)