vb利用IHTMLElementCollection与WebBrowser获得网页表格内容

Option Explicit
'需要添加一个webbrowser控件 和一个按钮
'引用两个库，在菜单的工程-引用里，找到Microsoft HTML object library和 Microsoft activex data object 2.5/2.6两个库，然后粘贴如下代码
'不明白的百度HI我
Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.szse.cn/main/disclosure/news/xxlb/index.shtml?txtStockCodeORname="
    

End Sub

Private Sub Form_Load()
    WebBrowser1.Stop
End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim doc As MSHTML.HTMLDocument
    Set doc = WebBrowser1.Document
    Dim table As MSHTML.HTMLTable
    Dim lrow As MSHTML.HTMLTableRow
    Dim cel As MSHTML.HTMLTableCell
    Set table = doc.getElementById("REPORTID_tab1")
    Dim Conn As ADODB.Connection
    
    Dim FLD() As String
    Set Conn = CreateObject("ADODB.Connection")
    
    Conn.open "provider=microsoft.jet.oledb.4.0;data source=d:\DB1.MDB"
    Set lrow = table.rows(0)
    ReDim FLD(0 To lrow.cells.length) As String