NotInList Help

[Bob V]

This Code gives the last remark by date for Category, Is it possible to
alter this so is to give all remarks by category chosen in the last 60 days.
The date field is dtDate in tblRemarks.....Thanks for any
Help...............Bob

Private Sub cbCategory_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_Handler
Dim recCategory As ADODB.Recordset
Set recCategory = New ADODB.Recordset
recCategory.Open "select * from tblCategory", CurrentProject.Connection,
adOpenDynamic, adLockOptimistic
recCategory.AddNew
recCategory.Fields("Category") = NewData
recCategory.Update
Response = acDataErrAdded
Exit Sub
Err_Handler:
MsgBox Err.Number & "::" & Err.Description
End Sub