Visual Basic - Error en ejecucion asincrona de Recordset

Hola, mi problema es el siguiente, tengo una aplicacion que al ejecutar una consulta que tarda un ratito la ejecuto de forma asincrona de forma que se puede ejecutar codigo que tengo metido en un timer, lo hago de esta manera:

adoCursor.Open strSQL, cnGSM, adOpenKeyset, adLockReadOnly, adAsyncExecute
While adoCursor.State = adStateExecuting
DoEvents
Wend

Esto funciona perfectamente en todos los Pc´s pero en uno nuevo en el que tengo que instalarlo, funciona en xp( y la aplicacion funciona en equipos XP) me dice que el
proveedor no admite la ejecucion asincrona.

alguien sabe a que se puede deber y como solucionarlo???

Un saludo