With Graph1
    .LockUpdate True
    .Clear
    If moRsLagerspiegel.RecordCount > 0 Then
      .Count = 4
      .Data(1).Text = "Belegt:" & vbTab & vbTab & CStr(lAnzBelegtFrei)
      .Data(1).Value = CDbl(lAnzBelegtFrei)
      .Data(1).Color = Graph_Blue
      .Data(2).Text = "Belegt (Pst. gesperrt):" & vbTab & CStr( _
        lAnzBelegtGesperrt)
      .Data(2).Value = CDbl(lAnzBelegtGesperrt)
      .Data(2).Color = Graph_Red
      .Data(3).Text = "Leer (Platz gesperrt):" & vbTab & CStr(lAnzLeerGesperrt)
      .Data(3).Value = CDbl(lAnzLeerGesperrt)
      .Data(3).Color = Graph_Yellow
      .Data(4).Text = "Leer (verfügbar):" & vbTab & CStr(lAnzLeerVerf)
      .Data(4).Value = CDbl(lAnzLeerVerf)
      .Data(4).Color = Graph_Green
    End If
    .LockUpdate False
    .Refresh
  End With