Quando eu tento abrir os teus formularios o meu VBA não tem essa biblioteca Microsoft Windows Common Controls - 2 6.0 (SP6).

No puedo te ajudar!

Lovera, segue o arquivo sem a biblioteca devida

Se me permitem;
Sql com datas não segue exatamente os mesmos principios de string; portanto UCASE e LIKE não funcionam
Sua clausula sql está sendo passada =/- assim:
SELECT * FROM [Programação$] WHERE UCASE(Datainicial) LIKE UCASE('%1/2/2012%') AND UCASE(Datafinal) LIKE UCASE('%24/9/2012%')
Mas deveria ser :
SELECT * FROM [Programação$] WHERE (([Datainicial]>=#1/2/2012#) AND ([Datafinal]<=#24/9/2012#));
Tb os nomes dos campos devem ser iguais no codigo/planilha . Tem (por exemplo) Datainicial e na planilha Dtª Inicial

Reinaldo, ficou muito bom mesmo! obrigado.
Tenho um outro problema que está acontecendo com o formulario, eu não estou conseguindo atribuir uma macro que chama o formulario a um botão, sempre que eu chamo o formulario aparece uma mensagem dizendo "erro em tempo de execução 424, objeto não encotrado,", Vc sabe o que significa isso?

Posivelmente o nome/descrição do formulario chamado não está conforme no projeto/arquivo

Pior que está tudo com os nomes certos, eu não entendendo o por que disso, já testei várias bibliotecas e sem sucesso.

Muitas vezes não é o que parece.Veja em seu arquivo exemplo:
ao utilizar o depurador (Depurar --> Compilar); recebemos o erro "Variavel não definida" e é realçado:
Na Private Sub lstLista_DblClick(ByVal.....
...
indiceRegistro = frmprogamacao.ProcuraIndiceRegistroPodId(lstLista.List(lstLista.ListIndex, 0))
...
Como refere-se a um form, não poderia ser declarado como variavel. Vendo mais de "perto"; chega-se a e que o nome do formulario esta errado
e o correto:indiceRegistro = frmprogramacao.ProcuraIndiceRegistroPodId(lstLista.List(lstLista.ListIndex, 0)) (falta um r )

Putz! Fiquei pelejando com isso a tarde inteira, e meu problema era um "r" kkk,
Caraca, eu nunca iria descobrir isso, só vc mesmo Reinaldo.
Muito obrigado pela atenção e principalmente pela ajuda!
VLW!