Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection

bu tanımlar 2 defa yapıldığı için hata veriyor olabilir
bir prosedürde her tanımlayıcı 1 defa kullanılır o nedenle tekrar aynı adı veremezsiniz
2. yazdığınız yerdeki kodları bu 3 satırı silerek dener misiniz?

---

şimdi fark ettim son: da 2 defa kullanılmış galiba