Dim ret As String
 
    Me.MousePointer = vbHourglass
 
    OpenDB "SELECT * FROM Rohdaten WHERE ds_id='" + lblinr.Caption + "'"
 
    If MsgBox("Hat der Kunde endgültig kein Interesse, möchte nicht mehr" & _
      "angerufen werden und sollen die Daten geöscht werden? Drücken Sie Ja!" & _
      "Soll der Kunde lediglich in der nächsten Zeit nicht mehr angerufen" & _
      "werden, drüclen Sie Nein.", vbQuestion + vbYesNo, "") = vbYes Then
        ret = "x"
    Else
        ret = "!"
    End If
 
    rs.MoveFirst
    rs.Fields("Lead_Status").Value = CStr(ret)
 
    rs.Update
 
    WriteToRohdaten
 
    GetNewData
 
    Me.MousePointer = vbNormal