谁能告诉我,为什么不能这样加???
Private Sub Form_Load()
Tview "select * from [ugroup] where ugparentid=0"
End Sub
Private Sub Tview(sql As String)
Set rs = Conn.Execute(sql)
Do While Not rs.EOF
TreeView1.Nodes.Add , , rs("id"), rs("ugname")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub