Hi Miao,

acceRs.Supports(adIndex) and acceRs.Supports(adseek) always say false
whenever I set open recordset with adOpenKeyset. so I can't use seek function.

anyone can help me out, thanks in advance

IIRC, Seek is only available with a direct table connection, which you've
correctly passed in the Open method, but I think you should just be passing the
name of the table in the SQL string, not a query:

acceRs.Open "values_Clplus_YTD", acceConn, adOpenKeyset, adLockReadOnly,
adCmdTableDirect

Regards

Stephen Bullen
Microsoft MVP - Excel
www.BMSLtd.ie