Try:
oconnection = Createobject("adodb.connection")
with oConnection
.Provider="MSDASQL.1"
....

The exact connection string you could get when creating a New Microsoft Data Link.UDL file.

>Thanks for the response.
>I am doing it in ADO.