在 Access 中使用 VBA 函数返回查询值

如何解决在 Access 中使用 VBA 函数返回查询值

我目前正在处理一个项目，但在尝试获取能够返回查询值的函数时遇到了问题，我确实需要该函数才能将其显示在文本框中。 目前的代码是这样的：

Public Function rubrieknaamsql() As String

    Dim rst As DAO.Recordset
       
    Dim strsql As String
       
    strsql = "SELECT T_Train.trainPlate,T_Category.categoryName FROM T_Category INNER JOIN T_Train ON T_Category.id = T_Train.category_id WHERE (((T_Train.trainPlate)=[Forms]![F_Comboio]![Combo_Search_Comboio]));"

    Set rst = CurrentDb.OpenRecordset(strsql)

    rubrieknaamsql = rst!categoryName
    rst.Close
End Function

我应该说代码是从其他出版商那里复制的，我不拥有它的权利。但是，当我尝试运行它时它仍然无法工作，并且显示的错误如下：

运行时错误 3061：参数太少。预期 1

它发生在 Set rst 命令中。