SQL = "Select Option.Filmart from [Option]"
Set Tabelle = Db.OpenRecordset(SQL)
While Not Tabelle.EOF
     Text = Tabelle.Fields("Filmart").Value
     SQLG = "Select * from Videoliste where Genre = '" + Text + "'"
     Data1.DatabaseName = Video.CommonDialog1.FileName
     Set Tb = Db.OpenRecordset(SQLG)
     Data1.RecordSource = SQLG
     Data1.Refresh
    If Tb.RecordCount > 0 Then
       Data1.Recordset.MoveLast   
      MaxG = Data1.Recordset.AbsolutePosition + 1
      Data1.Recordset.MoveFirst
      Dim s!
      MaxG = (Val(MaxG) / Max) * 100
      MaxG = 360 / 100 * MaxG
   Else
   End If
Tabelle.MoveNext
Wend     
With Me
        Me.ScaleMode = vbPixels
        Me.FillStyle = FbSSolid
       Me.FillColor = RGB(255, 0, 0)
      Me.Circle ((.ScaleWidth) - 100, (.ScaleHeight) - 20), 2000, RGB(200, 0, _
        255), -90*     (3.14 / 180), -10 * (3.14 / 180)
End With

Dim s!
wert1 = (Val(Statik.lblno.Caption) / Max) * 100
wert1 = 360 / 100 * wert1
 
wert2 = (Val(Statik.lblyes.Caption) / Max) * 100
wert2 = 360 / 100 * wert2
 
With Me
.ScaleMode = vbPixels
.FillStyle = FbSSolid
.FillColor = RGB(255, 0, 0)
s = 1
For s = 1 To 20
Me.Circle ((.ScaleWidth / 2) - 100, (.ScaleHeight / 2) - s), 200, RGB(150, 0, _
  0), -1E-24 * (3.14 / 180), -wert1 * (3.14 / 180), 1 / 2
Next s
.FillColor = RGB(0, 255, 0)
s = 1
For s = 1 To 20
Me.Circle ((.ScaleWidth / 2) - 100, (.ScaleHeight / 2) - s), 200, RGB(0, 150, _
  0), -wert1 * (3.14 / 180), -(wert1 + wert2) * (3.14 / 180), 1 / 2
Next s
.FillColor = QBColor(12)
Me.Circle ((.ScaleWidth / 2) - 100, (.ScaleHeight / 2) - 20), 200, RGB(200, 0, _
  0), -1E-24 * (3.14 / 180), -wert1 * (3.14 / 180), 1 / 2
End With