VBA CmdSQLData.Execute() RunTime Error : Unspecified Error
===

i have an VBA code where i am calling oracle to retrieve data twice.
First data retrieval is fine. But 2nd time it is saying ,

    **RunTime Error '-2147467259 (80004005)'; Unspecified error**

My Code is as follows,

    'First Data retrieval
    Query1 = "Select TableName from all_tables"
    CmdSQLData.CommandText = Query1
    CmdSQLData.CommandType = adcmdText 
    CmdSQLData.Timeout=0
    set rs = CmdSQLData.Execute()
    'Then code to store data ...
    'This part gives proper result ...
    rs.close()
    
    'Second Data retrieval
    Query2 = "Select * from Event"
    CmdSQLData.CommandText = Query2
    set rs = CmdSQLData.Execute() 'This line Gives Error - RunTime Error '-2147467259 (80004005)'; Unspecified error

May i know why the error is coming for second query ?
There is no problem with query as i have tested in oracle directory.
Please let me know