Anyone know of an easy way to move to particular records in a dataset?

Here is how I would do it with VB6:

With Data1.Recordset
.FindFirst "UPC = '" & gFindString & "' "
If (.NoMatch) Then
iReturn = MsgBox("UPC " & gFindString & _
" was not found.", vbCritical, "Search")
End If
End With

Thanks!