Set con = Application.CurrentProject.Connection

satırlarını silip

rs.Open stSql, con, 1

yerine de
yazmayı dener misiniz?

yada referanslarda DAO 3.6yı silip yerine Microsoft Office 14.0 Access database engine Object Library eklemeyi de deneyebilirsiniz Not: 14.0 yerine sizdeki sürüm ne ise onu eklemeyi deneyin

Aynı hata malesef kardeşim.

Runtime error '-2147221164(80040154)':
class not registered.

Maalesef aklima baska bir sey gelmiyor,
En fazla yeni bir VT oluşturup dış veri al yöntemiyle indirdiğiniz dosyadaki verileri almak olabilir
Ama referanslardan yine dao3.6 yerine mesajımdaki referansı eklersiniz yine

Teşekkürler kardeşim.

classs not registered bu hatayla ilgili bulabildiklerrim aşağıdaki bağlantıdaki gibi şeyler,
çözüm olarak olarak önerilen şey ise ofis programını onarmak yada yeniden kurmak
https://www.fmsinc.com/microsoftaccess/e.../index.htm