Pevar valor de variavel dentro do loop

Bom dia !! tem um loop que lê uma tabelinha no bd e me exibe os ids dessa tabela. Aí preciso pegar o valor desse id e passar pra um 4 select rpa fazer a consulta no bd.

Dim idPedido
DO WHILE NOT rs.EOF ' o loop pra pegar os ids do pedido aqui vai gerar ex; ids 1234

idPedido = rs("id")

rs.movenext

loop

aqui os 4 selects

ExpSqlPed1="Select * from pedido where fkCod ="& idPedido ' aqui quero pega o id 1
set rsPed1= cn.execute(ExpSqlPed1)

ExpSqlPed2="Select * from pedido where fkCod ="& idPedido ' aqui quero pega o id 2
set rsPed2= cn.execute(ExpSqlPed2)

ExpSqlPed3="Select * from pedido where fkCod ="& idPedido ' aqui quero pega o id 3
set rsPed3= cn.execute(ExpSqlPed3)

ExpSqlPed4="Select * from pedido where fkCod ="& idPedido ' aqui quero pega o id 4
set rsPed4= cn.execute(ExpSqlPed4)

então preciso pegar o valor da varival dentro do loop e atribuir ao select ou seja no primeito loop pegar o valor e passar pra expSqlped1

no segundo loop pegar o valor e passar pra expSqlped2 e assim até a 4ª expSql

Grato desde de já