vb6.0结合Web的设计技巧还要提高....

     近来,在尝试一种WEb下Table数据导入Access表中的操作,是用VB6.0结和webbrowser控件做的。各个界面如下：

图1：窗体

    WebBrowser1.Navigate "http://www.szse.cn/main/disclosure/news/xxlb/index.shtml?txtStockCodeORname="
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '过程调用参数[网页数据显示在控件中]
    '定义VAR
     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 itmX As ListItem
    Dim FLD() As String                                '定义数组：字符串
    Set lrow = table.rows(0)    '初值＝0
    If lrow = "" Then MsgBox "网络链接失败!!", vbOKCancel, "运行提示": Exit Sub
    ReDim FLD(0 To lrow.cells.length) As String
    Dim i As Integer         '循环变量
    Dim tbname As String     '表名变量
    Dim sql As String        '定义字段名
    Dim SQL1 As String       '字符串

    Dim J As Integer
    Dim P As Integer
    Dim vlist As String
    Dim a1, a2, a3, a4, a5, a6, a7 As String
    '添加记录过程
    For i = 1 To table.rows.length - 1   '总行数-1
        vlist = ""
        Set lrow = table.rows(i)
        P = table.rows.length - 1
        For J = 0 To lrow.cells.length - 1
             vlist = vlist & "'" & lrow.cells(J).innerText & "',"
             If J = 0 Then a1 = lrow.cells(J).innerText
             If J = 1 Then a2 = lrow.cells(J).innerText
             If J = 2 Then a3 = lrow.cells(J).innerText
             If J = 3 Then a4 = lrow.cells(J).innerText
             If J = 4 Then a5 = lrow.cells(J).innerText
             If J = 5 Then a6 = lrow.cells(J).innerText
             If J = 6 Then a7 = lrow.cells(J).innerText
         If J = 6 Then
 
          Set itmX = ListView1.ListItems.Add '(参数,参数,参数,……) '这些参数都可以为空，具体你可以看看msdn
         itmX.Text = a1
         itmX.SubItems(1) = a2
         itmX.SubItems(2) = a3
         itmX.SubItems(3) = a4
         itmX.SubItems(4) = a5
         itmX.SubItems(5) = a6
         itmX.SubItems(6) = a7
         End If
        Next J
     Next i
    ListView1.ToolTipText = "有效记录条数:" + CStr(P)
    MsgBox "网页数据显示成功!!", vbOKCancel, "运行提示" 'app
   
End Sub

......

务请VB专家看看，帮我解决【自认为的难题】！！多谢谢了！