Hi ..
to use filter after select.., try this simple example below:

Dim rs as ADODB.RecordSet
rs.open "SELECT CUSTCODE, STOCKID, PRICE FROM SALES ORDER BY SALESDATE",cndata,adOpenKeyset, adLockReadOnly

Dim mCustCode as String
mCustCode = Text1.Text

rst.Filter = "CUSTCODE = '" & mCustCode & "'"

HTH