Error : 'The Connection can not be used to perform thsi operation

Question

Dear All,
I am getting an error like 'The Connection can not be used to perform thsi operation, it is either close or Invalid in this context.
Below is the code what am using:
Sub Select_Query()
Dim SQL_String As String
Dim rs As ADODB.Recordset 'This holds the data
Dim cn As ADODB.Connection 'Declaring Connection
Dim cmdobj As ADODB.Command 'Declare command Object
'Sheets("Payment").Select
Set cn = New ADODB.Connection
cn.Open ("Provider=MSDAORA;Data Source=MyDatabase;User ID=Prasad; Password=Prasad12;")
Dim count_value As Long
count_value = WorksheetFunction.CountA(Worksheets("Payments").Range("A:A"))
For i = 4 To count_value
SQL_String = Worksheets("Payments").Range("AA" & i).Value
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SQL_String, cn, adOpenForwardOnly, adLockOptimistic, adCmdText
Dim val As Integer
val = rs.recordCount
If val = 0 Then
Worksheets("Payments").Range("AZ" & i).Value = "No"
'Else
'Worksheets("Uploaded").Range("O" & i).Value = "Yes"
End If
cn.Close
Set con = Nothing
Next
'cn.Execute SQL_String
'con.Close
Set con = Nothing
End Sub
And select statment is picking one of the sheets, and SQL query is:
="SELECT sa.acct_id
FROM ci_sa sa, ci_sp sp, ci_sa_sp ss, ci_sp_geo spg,ci_acct_char cac
WHERE sa.sa_id = ss.sa_id
AND ss.sp_id = sp.sp_id
AND sp.sp_id = spg.sp_id
AND spg.geo_type_cd LIKE '%RR%'
AND spg.geo_val ='"&B4&"'
and sa.ACCT_ID=cac.ACCT_ID
AND cac.char_type_cd LIKE '%SDO%'
AND TRIM (char_val) IN ('"&Master!G9&"')"
Please help me in this..
Regards,
Prasad

Answer 1

Please, this is a Oracle forum, not a VBA forum. Mark this thread as answered and post it in a VBA forum.