Marciel,
O códigi foi desenvolvido de maneira a apanhar o nome do arquivo Amigos.mdb na mesma pasta onde estiver o arquivo do Excel. Ou seja: essa é a única condição de utilização do programa.
Talvez, algo possa não está funcionando corretamente na sua máquina, se no VBA do seu Excel estiver faltando a referência a biblioteca que executa a conexão com os Bancos de dados que é feita via ADO.
No caso, se for isso, você precisa abrir o VBA (ALT + F11), ir ao meni Ferramentas, ítem Referências, procurar na lista o ítem Microsoft ActiveX Data Objects 2.6 Library e marcá-lo.
Postado : 01/11/2012 2:29 pm