Private Sub AngebotHistory()
    If bRsOpen = True Then
       bRs.Close
       Set bRs = Nothing
       bRsOpen = False
    End If
    sSQL = "SELECT * FROM tblkundenhistory WHERE KdVorgang = '" & oRs!AufNr & _
      "' AND KdVart = 1"
    bRs.CursorLocation = adUseClient
    bRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    bRsOpen = True
    ' Ja, Auftragsdatum setzen
    If bRs.RecordCount = 0 Then
       bRs.Close
       bRsOpen = False
       Set bRs = Nothing
       Exit Sub
    End If
    bRs!KdDatumR = Format(Now, "dd.mm.yyyy")
    bRs.Update
    If bRsOpen = True Then
       bRs.Close
       Set bRs = Nothing
       bRsOpen = False
    End If
End Sub