Dim cod() As String
Dim i
i = 0
While Not rs.EOF
cod(i) = rs(1)
List1.AddItem rs!nome, i
i = i + 1
rs.MoveNext
Wend
List1.Refresh