[VB6] Select Case (?)

[StegcO]

Come preannunciato, le IF non bastano mai

Ho una ComboBox che popolo con una decina di AddItem, successivamente ne catturo il Text e lo inserisco in un BD Access, fin qui tutto OK.

Ora, aprendo la Form_Dettagli vorrei che come ListIndex ci sia quello scelto al momento dell'inserimento (la 3 riga, la 6 ecc)

Per ora ho fatto questo:

Select Case XXX
    Case Rs.Fields("XXX").Value = "XXX_0"
         cmb_XXX.ListIndex = 0
    Case Rs.Fields("XXX").Value = "XXX_1"
         cmb_XXX.ListIndex = 1
    Case Rs.Fields("XXX").Value = "XXX_2"
         cmb_XXX.ListIndex = 2
    Case Rs.Fields("XXX").Value = "XXX_3"
         cmb_XXX.ListIndex = 3
    Case Rs.Fields("XXX").Value = "XXX_4"
         cmb_XXX.ListIndex = 4
End Select

allora, innanzitutto SELCT CASE XXX.. quell'XXX cos'è? una variabile? (si, ho dovuto dichiararla ma non contiene niente, anche perchè a me non serve mettere nulla nella variabile, ma solo dichiarare il list index in base al campo del DB). Inoltre non prende la ListIndex, quindi non funziona

[Grumpy]

Non ci sono vantaggi nel porre la stessa domanda su più forum. Ti è già stato risposto...di là.

[oregon]

Lascia perdere la case (sbagliata e inutile) e scrivi semplicemente

cmb_XXX.ListIndex = Val(Right(Rs.Fields("XXX").Value, 1))

P.S. Non l'avevo notato ma concordo con Grumpy ...

[StegcO]

Grazie per le risposte e scusate il CrossPosting