查询Oracle时记录受影响的返回-1

Question

我能够从excel向oracle表运行INSERT，DELETE和UPDATE记录。 用户具有选择，插入，更新，删除权限。 但是，当我尝试发送简单的SELECT SQL时，我什么也没收到。 CStr（recordsAffected）为[-1]。我需要有关此问题的帮助。

Private Sub TestB_Click()
Dim recordsAffected As Long

Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "Driver={Oracle in OraDB19Home1};Dbq=ORCL;Uid=cowner;Pwd=pwd;"
Sql = "SELECT * FROM TABLECOD ;"
con.Execute Sql, recordsAffected

If recordsAffected > 0 Then
    MsgBox "Successful!"
    Unload Me
Else
    MsgBox "Not found. Please check values."
End If

con.Close
Set con = Nothing

End Sub