Быстрый поиск в базе данных

Visual Basic не имеет процедуры наподобие функции DLookUp в Access. Следующую функцию можно использовать в VB для получения имени (Name) объекта по ID:

Public Function MyDLookUp(Column As _
        String, TableName As String, _
        Condition As String) As Variant
Dim Rec As Recordset
On Error GoTo MyDlookUp_Err

' gCurBase это глобальная переменная, хранящая
' текущую открытую базу данных
Set Rec = gCurBase.OpenRecordset_
        ("Select * From " & TableName)
Rec.FindFirst Condition
If Not Rec.NoMatch Then
        ' возвращает запрошенное поле, удовлетворяющее запросу
        MyDLookUp = Rec(Column)
        Exit Function
End If

' если нет совпадений, то возвращает -1, либо другую ошибку
MyDlookUp_Err:
        MyDLookUp = -1
End Function