' Datensatz Zahlungsaustauch
          lResult = sevDTA_FileAddRec(fHandle, sBlz, sKtoNr, sName, "", _
            sBLZ_Liste, sKtoNr_Liste, sName_Liste, sVerwendung_Liste, _
            sBetrag_Liste)
 
          ' Hier Rückgabewert auswerten
          Select Case lResult
            Case ERR_DTA_SUCCESS
              ' Alles OK
              CurrentDb.Execute "UPDATE tblDTAUS SET Success=1 WHERE Id=" & _
                CStr(oRs("Id"))
 
            Case ERR_DTA_BAD_BLZ
              ' BLZ ungültig!
 
            Case ERR_DTA_BAD_BLZ_LEN
              ' BLZ hat ungültige Länge!
 
            Case ERR_DTA_BAD_KTONR
              ' Ungültige oder keine Kontonummer
              ' (KEIN Prüfziffernberechnungsverfahren angewandt!)
              ' Dies muss ggf. bei Bedarf gesondert erfolgen