如何利用VB6.0查询数据库内各表之间的是否存在关系以及如何建立关系？

Public Function HasThisRelation(RelName As String) As Boolean

Dim Rel As Relation

For Each Rel In gDataBase.Relations
    If Rel.Name = RelName Then
        HasThisRelation = True
        Exit Function
    End If
Next
HasThisRelation = False

End Function
这个是利用DAO进行查询的，我想知道如果用ADO该怎么做呢？

http://wenku.baidu.com/link?url=IaIRE6Cikfmc7vVO9oM0L6sUeJn2P_7Hp2JEQj7_lZahC007TMEDcIY7AT3AGQO0PE_Z4_D5jz_V9yO2EDMrjq4G-kWBvUvAcuskZ2MNhJm