If aRs.state 0 1 Then aRs.Close
    With aRs
       .ActiveConnection = oConn
       .CursorLocation = adUseServer
       .CursorType = adOpenKeyset
       .LockType = adLockOptimistic
    End With
    If bNeu = True Then
       sSQL = "SELECT * FROM tblangebot WHERE AngNr = 999999"
       aRs.Open sSQL
       aRs.AddNew
       aRsOpen = True
    Else
       AngebotNr = sevAngebot
       sSQL = "SELECT * FROM tblangebot WHERE AngNr = '" & AngebotNr & "'"
       aRs.Open sSQL
       aRsOpen = True
       If aRs.RecordCount = 0 Then
          MsgBox "Angebot konnte nicht gelesen werden ...."
          aRs_Close
          Exit Sub
       End If
    End If
    oConn.BeginTrans
    'Dein restlicher Code der die Felder befüllt inklusive aRs.update
    oConn.CommitTrans