aduserclient and vba (1 Viewer)

I am getting below error 3001
"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another"
on line number
adoCon.CursorLocation = adUseClient

I am using excel vba.

Sub SaveAsBinary()

Dim adoStream As Object
Dim adoCmd As Object
Dim strFilePath As String
Dim adoCon As Object
Const strDB As String = "" 'Database name
Const strServerName As String = "" 'Server Name

Set adoCon = CreateObject("ADODB.Connection")
Set adoStream = CreateObject("ADODB.Stream")
Set adoCmd = CreateObject("ADODB.Command")

'--Open Connection to SQL server
adoCon.CursorLocation = adUseClient

Please assist

Just stick to the orig post. They are same in substance.