An OLE DB data source provider must supply data that will be passed to another provider, which will perform the Data Shaping. The data source provider is specified in the Connection object connect string as "Shape Provider=YourDataSource". The provider supplying Data Shaping support is specified in the Connection object Provider property as "MSDataShape".
Example
Dim cnn As New ADODB.Connection
cnn.Provider = "MSDataShape"
cnn.Open "Shape Provider=MSDASQL;DSN=vfox;uid=sa;pwd=vfox;database=pubs”