box soll farbe ändern durch db komandos

also eine box in vb egal ob label oder textbox soll die farbe ändern wenn in einer datebank am besten excel (txt wäre auch ok) den wert für die farbe drinne steht.

beispiel in der db steht 1 soll farbe grün werden
2 für gelb
3 für rot

wie macht man das?

Code:

---

Dim input1 As Integer
input1 = 1
Select Case input1
Case 1
Label1.BackColor = &HFF&
Case 2
Label1.BackColor = &HFF00&
End Select

---

Ist doch ganz einfach

und wie verknüpfe ich das mit einer excel db?

schau dir das mal an: http://www.vbarchiv.net/tipps/details.php?id=466