Bom dia a todos!

Estou desenvolvendo um projeto e preciso da ajuda de vcs, não consegui achar uma solução para o meu problema na internet.

Por exemplo, eu tenho uma Sub que faz determinada rotina no meu sistema (como um cadastro por exemplo). Dentro da Sub eu preciso conectar a uma banco de dados externo (no meu caso o Access). Minha dúvida é como eu consigo criar uma Function ou uma Sub "padrão" para eu chamar em todos as conexões do banco que eu precisar. Eu já fiz isso chamando um procedimento dentro da Sub porém ele entra, conecta mas quando sai da Function ou Sub ele desconecta do banco e não prossegue com o código normalmente. Como fazer isso sem eu precisar repetir o código de conexão todas as vezes que precisar?

Para melhor entendimento segue exemplo do que eu fiz e não deu certo.

Desde já agradeço.