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.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 01/11/2012 2:29 pm