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该怎么做呢?