recordset。查找并返回同一记录中其他列中的值

Question

我正在尝试从存储过程的结果中检索特定数据。由于这个原因，我无法使用简单的查询，因此，我尝试无济于事地使用recordset.Find。

Public keys as ADODB.Recordset

Function getdata(query As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

cnn.ConnectionString = "Provider=SQLOLEDB;Data Source= OMITTED" 
cnn.Open

Set getdata = cnn.Execute(query)
End Function

Private Sub link1box_Change()
Set keys = getdata("EXEC sp_fkeys @fktable_name = 'astAssets'")

End Sub

到目前为止，还不错，但是我似乎无法使用Find函数来处理键记录集。

If keys.Find("PKTABLE_NAME = 'astAssets'") Then Debug.Print "found" 在.Find

上引发以下编译错误

  

期望的函数或变量

我的最终目标是在sp_fkeys过程的输出中找到特定的值，并从同一记录的特定列中返回值。