este erro salvo engano é quando vc chama uma função inexistente de uma classe e ou pode ser em função de uma tentativa de gravar um dado de um tipo incompativel no banco

tente

on error goto mostraerro

.................seu cod

exit sub

mostraerro:

msgbox "erro: " & err.Number & " Origem erro: " & err.source