Спрашивал у спецов по VB. Знатоки молчат. Может профи по VB.NET помогут.

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

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
В чем проблема? Как ее исправить?
Самое интересное, что такая же процедура в MS Access 97 работает !?