Написал внешнюю функцию возврата значения по условию поиска:

Public Function FindTMP(DatabaseToOpen, Condition, ValueField) As String
Dim dbs As Database, rst As Recordset, fldLoop As Field
tmpTxt = ""
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(DatabaseToOpen)
rst.FindFirst Condition
' Проверяет, найдена ли запись
If (rst.NoMatch) Then
tmpTxt = ""
Else
tmpTxt = Str(rst(ValueField))
End If
rst.Close
Set dbs = Nothing
End Function

Выделяет dbs As Database и выдает ошибку: User-defined type not defined
В чем проблема? Как ее исправить?