Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) _
   Handles Button8.Click
     If Sql.GetSQLText("SELECT Count(*) FROM tblTiere") >= 15 Then
     Sql.SetSQL("DELETE FROM tblTiere")
     MsgBox("alle einträge gelöscht!")
     End If
     End Sub