[Resolvido]Loop em uma Select

Boa noite, amigos!

Gostaria de saber se alguém sabe como fazer um select usando loop. Meu objetivo seria tipo:

Selecione [Lista de valores preenchido por loop], porém, sem informar uma tabela origem.

Como Select Date() as Data, porém, gostaria de setar varios valores.

Amigo, eu nao entendi sua Duvida... Qual o objetivo deste Loop? Explique melhor!

Exemplo de Loop

Dim rs As Recordset                            'Abre um recordset
   Set rs = SubFrmPrincipal.Form.Recordset        'Captura a tabela do sub-formulário para  recordset
   
 
   rs.MoveFirst                                   'Move para a primeira linha do recordset
'Aqui Inicia o Loop Até o ultimo Regitro da rs  
Do While Not rs.EOF
   
  'Cadastra os dados do itens na na tabela SubSQL
   CurrentDb.Execute "INSERT INTO[SubSQL]" _
   & "(Cod, codp, campo1, campo2) VALUES" _
   & "('" & rs.Fields("Cod") & "', '" & rs.Fields("codp") & "', '" & rs.Fields("campo1") & "', '" & rs.Fields("campo2") & "');"
   
   rs.MoveNext                                 'Move para a próxima linha da recordset
   
   Loop  
   
   rs.Close                                        'Fecha a recordset
   Set rs = Nothing

Minha duvida nao se aplica mais, pois a necessidade mudou.
Obrigado!