listview显示问题

以下是在ListView1中显示表的程序


Private Sub TreeView1_nodeclick(ByVal node As MSComctlLib.node)

Dim conn2 As ADODB.Connection
Dim rst2 As ADODB.Recordset
Dim item As ListItem
Dim ftype As Integer
If node.Image = 3 Then
   Text1 = Trim(node.Text) + "表记录"
   ListView1.ColumnHeaders.Clear
   ListView1.ListItems.Clear
   Set conn2 = New ADODB.Connection
   Set rst2 = New ADODB.Recordset
   conn2.ConnectionString = "provider=sqloledb;driver=(sql server);" + _
      "server=WWW-D4CC14DD61C;uid=sa;pwd=xywnhy2005;database=" & _
      Trim(node.Parent.Text)
   conn2.CursorLocation = adUseServer
   conn2.Open
   rst2.LockType = adLockPessimistic
   rst2.CursorType = adOpenDynamic
   rst2.ActiveConnection = conn2
   rst2.Open "select * from " & Trim(node.Text)
   For i = 0 To rst2.Fields.Count - 1
       ListView1.ColumnHeaders.Add , , rst2.Fields(i).Name
   Next i
   ListView1.View = lvwReport
   If Not rst2.BOF And Not rst2.EOF Then
     Do While Not rst2.EOF
       If Not IsNull(rst2.Fields(0)) Then
         Set item = ListView1.ListItems.Add(, , rst2.Fields(0))
         For i = 0 To rst2.Fields.Count - 1
           If Not IsNull(rst2.Fields(i)) Then
              ftype = rst2.Fields(i).Type
              If ftype <> adbyref And ftype <> adLongVarBinary And _
                  ftype <> adLongVarChar And ftype <> adLongVarWChar And _
                  ftype <> adIDispatch Then
                  item.SubItems(i) = rst2.Fields(i)   （这里运行后说无效数据， item.subitems(i)=无效数据 rst2.fields(i)="1    "）
              End If
           End If
         Next i
        End If
        rst2.MoveNext
      Loop
   End If
End If
Set rst2 = Nothing
Set conn2 = Nothing
      
End Sub



怎么调试~~~~~~~~~~~~~~~~~~
请大家多多帮忙~
先谢过了~~~~