Visual Basic - Me borra el combo!!!

Tengo los combos agregados por ado a un bd y cuando pico encima del combo para que me salga el desplegable, me sale, pero cuando lo cierro se borra toda la tabla que tiene asignada.

Este es el code:

While Not Adodc1.Recordset.EOF
CboGrupo.AddItem Adodc1.Recordset("Grupo")
Adodc1.Recordset.MoveNext
Wend

Alguien me lo puede corregir.

Checa en que evento esta el llenado de tu combo, a lo mejor en el vento click estas borrando el contenido.

He probado con estos dos eventos y hace lo mismo (los borra)

Private Sub Form_Load()
While Not Adodc1.Recordset.EOF
CboGrupo.AddItem Adodc1.Recordset("Grupo")
Adodc1.Recordset.MoveNext
Wend
End Sub

Private Sub CboGrupo_Change()
While Not Adodc1.Recordset.EOF
CboGrupo.AddItem Adodc1.Recordset("Grupo")
Adodc1.Recordset.MoveNext
Wend
End Sub

Con los eventos Private Sub Form_Load() , Private Sub CboGrupo_Change() aun sale el desplegable mostrando los registros y he probado con Click y no ssalen los registros

Alguna idea muchachos.

Mete esa rutina en una funcion aparte y llamala en el evento Load del formulario o al obtener el foco del combo.

Sigue sin funcionar, al cerrar el form se borra.

Gracias.