Не работает поиск в базе данных. - VB

Формулировка задачи:

Привет всем! Почему не работает ни как понять не могу. В MSDN смотрел вроде всё нормально, а почему не работает понять не могу. Заранее буду всем блогадарен за ответ. Спасибо всем кто ответит.

Private Sub cmdFind_Click()
    Dim str
    Dim DB As Database
    Dim RS As Recordset
    Dim sSQL As String
    Dim iTmp As Integer
    
    Set DB = OpenDatabase('C:DataBaseDataFilmsDataFilms.mdb', , False)
    sSQL = 'select * from Films'
    Set RS = DB.OpenRecordset(sSQL)
    
    str = txtNewName.Text
 
    With RS
         .MoveLast
         .FindFirst str
         If .NoMatch Then MsgBox 'No records found with ' & str & '.'

    End With
    
    Set DataFilms.Recordset = RS
    DataFilms.Refresh
 
    RS.Close
    Set RS = Nothing
    DB.Close
    Set DB = Nothing
End Sub

Решение задачи: «Не работает поиск в базе данных.»

textual
                            Листинг программы 
                        

                            strCountry = 'Country = '' & strCountry & '''
With rstCustomers
' Populate recordset.
.MoveLast
' Find first record satisfying search string. Exit 
' loop if no such record exists.
.FindFirst strCountry
If .NoMatch Then
MsgBox 'No records found with ' & strCountry & '.'
End If
End With
                        