Następujące błędy kodu na stronieMsgBox cn.RecordsAffected linia z:

Argumenty są niewłaściwego typu, są poza dopuszczalnym zakresem lub są ze sobą w konflikcie.

Jak mogę uzyskać odpowiednią liczbę wierszy? Dotyczy projektu Access 2003. Wolę zachować go w formacie 2003, więc jeśli jest inny sposób na zrobienie tego, byłoby świetnie. Nie chcę aktualizować całego projektu ze względu na tę 1 funkcję.

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