Try incrementing the OLE serve timeout by having this in your VB application startus:

VB Code:
  1. App.OleServerBusyTimeout = 30000