prova così (penultima riga del code originario) (quando vai a capo devi mettere &_ oppure scrivilo nella solita riga: meglio)

tuo_recordset.Open "SELECT * FROM tabella WHERE Cod = 1", &_
Connescio2, , , adCmdText