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