Hi all,



I am using Access 2003 and watch to make a faster search (if possible). The code I have waits for the user to input first name, last name, MR #, and Occr Date. After the data is enter it search to make sure that it's not already in the database. Here is the code (any way of making it faster?:

Dim rs As DAO.Recordset
Dim iAns As Integer
Set rs = Me.RecordsetClone
rs.FindFirst "[MEDREC] = '" & Me!MEDREC & "' And [DOCCRS]= #" & Me!DOCCRS & "#"
If Not rs.NoMatch Then
iAns = MsgBox("This record already exists! Jump to it? Press (NO) to add", vbYesNo)
If iAns = vbYes Then
' Clear the current form, jump to the record
Me.Undo
Cancel = True
Me.Bookmark = rs.Bookmark
Else
'Just add it
End If
End If