Como obter as linhas afetadas no VBA ADO Execute?

Os seguintes erros de código noMsgBox cn.RecordsAffected linha com:

Os argumentos são do tipo errado, estão fora do intervalo aceitável ou estão em conflito um com o outro.

Como posso obter com sucesso o número de linhas afetadas? Isso é para um projeto do Access 2003. Eu preferiria mantê-lo no formato de 2003, então se há outra maneira de fazer isso, seria ótimo. Eu gostaria de não ter que atualizar o projeto inteiro por causa desta função 1.

Private Sub Command21_Click()
On Error GoTo Err1:
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    With cn
        .Provider = "SQL Native Client"
        .ConnectionString = "Server=myserver\myinstance;Database=mydb;Uid=myuser;Pwd=mypass;]"
        .Open
    End With

On Error GoTo Err2:
    cn.Execute "SELECT * INTO someschema.sometable FROM someschema.anothertable"
    MsgBox cn.RecordsAffected
    Exit Sub

Err1:
    MsgBox "Failed to connect to database!"
    Exit Sub

Err2:
    MsgBox Err.DESCRIPTION
    cn.Close

End Sub