You don't have to create another recordset just to obtain a resultset that has a name starting from 'A'. All you have to do is to pass a query the filters your previous recordset --'rstNames'-- to display all names starting from 'A'.

Try this code:

rstNames.Open "Select * from [table name] where name like 'A%',cn,adLockReadOnly,adCmdText