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
"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