Sub FindByPrice2(curPrice As Currency)
Dim db As Database
Dim rec As Recordset
Dim strSQL As String
Dim strMatches As String
Dim intCounter As Integer
strSQL = "SELECT * FROM tblSales WHERE AmountPaid = " & curPrice
Set db = CurrentDb()
Set rec = db.OpenRecordset(strSQL, dbOpenSnapshot)
Do Until rec.EOF
Debug.Print rec!SalesID
rec.MoveNext
Loop
intCounter = rec.RecordCount
Debug.Print FormatCurrency(curPrice)
rec.Close
End Sub