I want to create a hierarchical recordset but I can't get the MSDataShape provider to work for some reason. I already tried using both MSDataShape and MSDataShape.1 and setting cursor type to client. I always get the message "Data Source not found and default driver not specified." Here is the code:

cnn.CursorLocation = adUseClient
cnn.Provider = "MSDataShape"
stri = "Provider=MSDataShape.1;Data Source=TestDatabase;" & _
"Connect Timeout=15;Data Provider=MSDASQL"
cnn.open stri