Dim Anzahl As Integer
 Dim rst As ADODB.Recordset
 Dim conn As ADODB.Connection
 Dim comm As ADODB.Command
 Set conn = New ADODB.Connection
 conn.CursorLocation = adUseClient
 Set comm = New ADODB.Command
 With comm
        .CommandType = adCmdStoredProc
        .CommandText = "pro_EDI_Read"
        .Parameters.Append .CreateParameter("AKTION", adVarWChar, adParamInput, _
          25, "EDI_KONTEN_DETAILS_LESEN")
        .Parameters.Append .CreateParameter("KONTONR", adInteger, adParamInput, _
        2, "70001")
        .Parameters.Append .CreateParameter("ID_DOCTYP", adVarWChar, _
        adParamInput, 2, "9")
        .Parameters.Append .CreateParameter("STATUS", adVarWChar, _
        adParamOutput, 500, "")
 
        rst.CursorLocation = adUseClient ' Zeiger liegt local
        rst.LockType = adLockReadOnly ' Nur zum Lesen geöffnet
        rst.CursorType = adOpenStatic ' Um alle Methoden anwenden zu könnnen.
        conn.Open
        Set .ActiveConnection = conn
        Set rst = .Execute
        conn.Close
        conn = Nothing
 End With
 
 Set comm = Nothing
 
 Anzahl = rst.RecordCount