gli ha modificato una cosa corretta in una meno corretta.

Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection

deve rimanere.