Quale valore ottieni in NumRecord1 ?

Se ottieni il corretto numero di record dovresti scrivere

cboLotto.AddItem rs(0)