Error Sorting RecordSet

I can filter fine but receive an error trying to sort.

*****Error******
ADODB.Recordset (0x800A0CB3)
Current provider does not support the necessary interfaces for sorting or filtering.
*****Error******


*****Code Start******

data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("rebate.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "rebate", data_source
rs.Filter = "rebate_eligible = True"
rs.Sort = "mem_num"

*****Code End******

Try adding:

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "rebate", data_source
rs.CursorLocation = adUseClient
rs.Filter = "rebate_eligible = True"
rs.Sort = "mem_num"


http://support.microsoft.com/defaul...b;en-us;Q253248