Semplicemente la connessione va chiusa fuori dal ciclo For:
codice:.... End If rs.Close Next rowtable Next columntable Set rs = Nothing oConn.Close Set oConn = Nothing End Sub
Semplicemente la connessione va chiusa fuori dal ciclo For:
codice:.... End If rs.Close Next rowtable Next columntable Set rs = Nothing oConn.Close Set oConn = Nothing End Sub
Thanks,
PAOLO