Trucos de Visual Basic 6.0 VB6 Cargar un combo con datos de una BD

Gracias a un recordset cargaremos un combo. Para ello tenemos que iterar el recordset y en cada elemento del recordset, añadiremos un item en el combo:

While Not Rs.EOF
Me.Combo.AddItem Rs("CampoBD") & ";" & Rs("CODIGO")

Rs.MoveNext
Wend