Как правильно обработать метод Find в ADO? - VB

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

Т.е rs.Find что-то что писать если ничего не найдено или найдено?? В DAO быо свойство NoMatch.. А как дело обстоит в АДО??

Решение задачи: «Как правильно обработать метод Find в ADO?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Sub Main()
   FindX
End Sub
 
Public Sub FindX()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim mark As Variant
Dim count As Integer
 
count = 0
cnn.Open 'DSN=Pubs; Provider=MSDASQL; uid=sa; pwd=;'
rst.Open 'SELECT title_id FROM titles', cnn, _
         adOpenStatic, adLockReadOnly, adCmdText
 
' The default parameters are sufficient to search forward
' through a Recordset.
 
rst.Find 'title_id LIKE 'BU%''
 
' Skip the current record to avoid finding the same row repeatedly.
' The bookmark is redundant because Find searches from the current
' position.
 
Do While rst.EOF <> True    'Continue if last find succeeded.
   Debug.Print 'Title ID: '; rst!title_id
   count = count + 1        'Count the last title found.
   mark = rst.Bookmark      'Note current position.
   rst.Find 'title_id LIKE 'BU%'', 1, adSearchForward, mark
Loop
 
rst.Close
cnn.Close
Debug.Print 'The number of business titles is ' & count
 
End Sub