谢谢大家回答几个问题啥???

Question

第一就是用XPATH 进行查询
  需要在一个节点中查询它的下属节店的属性等于蒙的数值如:
  <const>
     ....
   </const>
set dyane= domnodelist.selectnodes('//*[@datatype='动态']")
上面这条语句是返回XML文档资料中所有DATATYPE='动态'的但是我只需要CONST的该如何写
  第二就是JET4.0如何修改数据库密码access2000,
  第三就是win2000下如何修改自定义打印尺寸
          谢谢大家

Answer 1

Xpath 是XML中的查询语言，我已经解决了
win2000的自定义我也基本结局了
但是通过JET4。0，就是ADOX改数据库密码使用ADOX的时候，
报未提供，
大家参考一下代码有问题吗？
我是在其他地方下的:
Dim cat As ADOX.Catalog
    Dim usrNew As ADOX.User
    Dim usrLoop As ADOX.User
    Dim grpLoop As ADOX.Group
    
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\Program Files\" & _
        "Microsoft Office\Office\Samples\Northwind.mdb;" & _
        "jet oledb:system database=c:\samples\system.mdb"    With cat
        'Create and append new group with a string.
        .Groups.Append "Accounting"
       
        ' Create and append new user with an object.
        Set usrNew = New ADOX.User
        usrNew.Name = "Pat Smith"
        usrNew.ChangePassword "", "Password1"
        .Users.Append usrNew        ' Make the user Pat Smith a member of the
        ' Accounting group by creating and adding the
        ' appropriate Group object to the user's Groups
        ' collection. The same is accomplished if a User
        ' object representing Pat Smith is created and
        ' appended to the Accounting group Users collection
        usrNew.Groups.Append "Accounting"
      
        ' Enumerate all User objects in the
        ' catalog's Users collection.
        For Each usrLoop In .Users
            Debug.Print "  " & usrLoop.Name
            Debug.Print "    Belongs to these groups:"
            ' Enumerate all Group objects in each User
            ' object's Groups collection.
            If usrLoop.Groups.Count <> 0 Then
                For Each grpLoop In usrLoop.Groups
                    Debug.Print "    " & grpLoop.Name
                Next grpLoop
            Else
                Debug.Print "    [None]"
            End If
        Next usrLoop        ' Enumerate all Group objects in the default
        ' workspace's Groups collection.
        For Each grpLoop In .Groups
            Debug.Print "  " & grpLoop.Name
            Debug.Print "    Has as its members:"
            ' Enumerate all User objects in each Group
            ' object's Users collection.
            If grpLoop.Users.Count <> 0 Then
                For Each usrLoop In grpLoop.Users
                    Debug.Print "    " & usrLoop.Name
                Next usrLoop
            Else
                Debug.Print "    [None]"
            End If
        Next grpLoop
        
        ' Delete new User and Group objects because this
        ' is only a demonstration.
        .Users.Delete "Pat Smith"
        .Groups.Delete "Accounting"    End With