Ok, well here's the good code...
Just re-name your find button...
Function Find(vTable As String, vField As String, vSearch As String)
Dim db As Database
Dim rs As DAO.Recordset
Dim strCriteria As String
Set db = CurrentDb()
Set rs = db.OpenRecordset(vTable, dbOpenDynaset)
' This function...