chrisanto,
Boa tarde!
Desculpa a demora na resposta. Estive muito atarefado esses dias.
Bom... abri seu arquivo aqui e vi que ele para justamente na linha
rec.Open "DSN=Logixbr;"
Nessa linha ele já desvia para o tratamento de erro em função da linha ON ERROR GoTo Erro existente no começo do módulo.
Não tenho como testar porque não tenho mais o SQL Server instalado no meu micro. Todavia, ao que tudo indica, esse parece ser um erro com a string de conexão.
De qualquer forma, estou te enviando um exemplo que já tenho feito há muito tempo que faz conexão tanto via SQLServer como via Access. Acho que dá para você estudar e adaptar a sua necessidade.
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 : 24/06/2017 3:02 pm