ADODB recordset FetchComplete event never fires

Option Explicit
 
Dim WithEvents Conn As ADODB.Connection
Dim WithEvents RS As ADODB.Recordset
Dim Counter As Long
Const DBConnection = "Driver={Microsoft ODBC for Oracle};Server=cruz1;UID=augustine;PWD=augustine;"
 
Private Sub Command1_Click()
    Dim iCount As Long
    iCount = 0
    If mAcctId = 0 Then
        mAcctId = 100000000
    End If
    Do While iCount < 10
        mAcctId = mAcctId + 1
        ExecuteQuery DBConnection, mAcctId
        iCount = iCount + 1
    Loop
 
End Sub
 
Private Sub Form_Load()
mAcctId = 0
Counter = 0
 
 
End Sub
 
 
Private Sub ExecuteQuery(ByVal DBConnString As String, AcctId As Long)
    
    Dim SQL As String
 
 
 
   SQL = "Select orderid from order where orderactid=999910605"
    
    If DBConnString <> "" Then
        Counter = Counter + 1
        Set RS = New ADODB.Recordset
        With RS
            .CursorLocation = adUseClient
            .Properties("Initial Fetch Size") = 0
            .Properties("Background Fetch Size") = 1
            'RS.ActiveConnection = GetConnection(DBConnString)
            RS.Open SQL, GetConnection(DBConnString), , , adAsyncFetch
          End With
    End If
End Sub
Private Function GetConnection(DBConnString As String) As ADODB.Connection
    'If Conn Is Nothing Then
        Set Conn = New ADODB.Connection
        Conn.Open DBConnString
    'End If
    Set GetConnection = Conn
End Function
 
Private Sub RS_FetchComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
        ByVal pRecordset As ADODB.Recordset)
    Dim myConn As ADODB.Connection
    Counter = Counter - 1
    Set myConn = pRecordset.ActiveConnection
    If Not myConn Is Nothing Then
        myConn.Close
        Set myConn = Nothing
    End If
    If Not pRecordset Is Nothing Then
        If pRecordset.State <> adStateClosed Then
            pRecordset.Close
        End If
    End If    
End Sub