Die folgenden Codefehler auf demMsgBox cn.RecordsAffected Linie mit:

Argumente sind vom falschen Typ, liegen außerhalb des zulässigen Bereichs oder stehen in Konflikt miteinander.

Wie kann ich die betroffene Zeilenanzahl erfolgreich ermitteln? Dies ist für ein Access 2003-Projekt. Ich würde es vorziehen, das Format 2003 beizubehalten. Wenn es also eine andere Möglichkeit gibt, wäre das großartig. Ich möchte nicht das gesamte Projekt für diese Funktion aktualisieren müssen.

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