Los siguientes errores de código en elMsgBox cn.RecordsAffected linea con:

Los argumentos son del tipo incorrecto, están fuera del rango aceptable o están en conflicto entre sí.

¿Cómo puedo obtener con éxito el número de filas afectadas? Esto es para un proyecto de Access 2003. Prefiero mantenerlo en formato 2003, así que si hubiera otra forma de hacerlo, sería genial. Me gustaría no tener que actualizar todo el proyecto en aras de esta función.

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