Поиск в Access своими силами

Private Sub Command89_Click() 
Dim rst As Recordset
Dim strSearchName As String
    Set rst = Me.RecordsetClone
   
    strSearchName = Str(InputBox('Введите номер проекта: ', 'Поиск'))
    rst.FindFirst 'number = ' & strSearchName
    If rst.Seek.NoMatch Then
            MsgBox 'Record not found'
        Else
            Me.Bookmark = rst.Bookmark
        End If
    rst.Close
End Sub

rst.FindFirst 'number = ' & strSearchName

Dim rst As Dao.Recordset

Private Function Search_by_3(fil1 As Variant, fil2 As Variant, fil3 As Variant, name_table As String, c1 As Integer, c2 As Integer, c3 As Integer, num As Integer) As Variant
Dim fin As Recordset
Dim search_st As Variant
Dim cu as Database
Set cu=CurrentDb
Set fin = cu.OpenRecordset(name_table)
fin.MoveFirst
search_st = 0
Do While Not fin.EOF
    If fil1 = fin.Fields(c1) Then
        If fil2 = fin.Fields(c2) Then
            If fil3 = fin.Fields(c3) Then
                search_st = fin.Fields(num)
                fin.MoveLast
            End If
        End If
    End If
    fin.MoveNext
Loop
fin.Close
Search_by_3 = search_st
End Function