Cara faz o seguinte então, ja que parece que vc quer filtrar por um certo campo os dados da tabela e ordenar pelo campo NOME então faz um select normal depois um SORT para ordenar pelo campo nome e depois faz um filter:
Private Sub txtPesqFatasia_Change()
adodcLst.RecordSource = "SELECT * FROM loja "
adodcLst.Recordset.sort = "nome"
adodcLst.Recordset.filter = "nome LIKE '" & Trim(txtPesqId.Text) & "%'"
End Sub
