OLEDBConnection.Reconnect (Excel)

Quita y vuelve a conectar la conexión especificada.

ActiveWorkbook.Connections(1).OLEDBConnection.Reconnect