我把我所有的分数都给你们！请高手们再帮帮我！

Question

'呵呵，10分没人搭理，csdn的大虾们也太现实了，俺菜菜蝙蝠来吧Dim cnn As ADODB.Connection
Dim rst As ADODB.RecordsetPrivate Sub Form_Load()
    
    Set cnn = New ADODB.Connection
    With cnn
        .ConnectionString = "Provider=MSDASQL;" & _
        "Driver=Microsoft Access Driver (*.mdb);" & _
        "DBQ=c:\my documents\db1.mdb;DriverId=25;" & _
        "FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
        .Open
    End With
    
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = cnn
        .LockType = adLockReadOnly
        .Source = "select name,num,old from stu"
        .CursorType = adOpenDynamic
        .Open
        
        Do Until .EOF
            '"K" & Trim(!Name)处的name应为关键字，若name可重复，则应
            '加一关键字段，然后引用该字段
            TreeView1.Nodes.Add , , "K" & Trim(!Name), Trim(!Name)
            .MoveNext
        Loop
        
        .MoveFirst
    End With
    
    Text1.DataField = "num"
    Set Text1.DataSource = rst
    
    Text2.DataField = "old"
    Set Text2.DataSource = rst
    
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    
    rst.Filter = "name = '" & _
        Right(TreeView1.SelectedItem.Key, _
        Len(TreeView1.SelectedItem.Key) - 1) & "'"
    
End Sub