请高手优化一下
Private Sub Command2_Click()
zw_xz = 0
Set rs = New Recordset
rs.Open "select * from users where packnum=" & Text3.Text, conn
Set rs1 = New Recordset
rs1.Open "select * from users where yn=0", conn
While Not rs1.EOF
If UBound(Split(rs1!treeid, ",")) > UBound(Split(rs!treeid, ",")) Then
If Split(rs1!treeid, ",")(UBound(Split(rs!treeid, ","))) = Text3.Text Then
zw_xz = zw_xz + 1
End If
End If
rs1.MoveNext
Wend
Text2.Text = UBound(Split(rs!treeid, ","))
Text1.Text = zw_xz
End Sub