I am using ActiveX Designer(Data Environment) with VB 6 to access ACCESS2000, there are some problems down here :

Find Command
*************
The find doesn't work and if it did not find any compatible txt, it will give an error. How do I catch the mismatched error?

Private Sub cmdFind_Click()
Dim name As String
name = InputBox("Enter name to find", "Staff Viewer")
Let finder = "txtfields(1)='" & name & "'"
DataEnvironment1.rsAdvertisers.Find finder
Beep
Call MsgBox(name + (" not found"), vbExclamation)
End Sub

Refresh Command
****************

The refresh command doesn't work. How do I refresh the rsAdvertiser command object?

Private Sub cmdRefresh_Click()
'this is really only needed for multi user apps
DataEnvironment1.rsAdvertisers.Refresh
End Sub