Visual Basic - cargar ComboBox con VB6 y Acces 2003

Buenas, soy muy nuevo en visual y estoy intentando cargar un comboBox, el problema es que cuando lo ejecuto el combobox carga pero al salir me borra todos los registros. Les dejo el codigo

Public Sub Llenar_combos()
Combo1.Clear
Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF
Combo1.AddItem Adodc2.Recordset.Fields(1)
Combo1.ItemData(Combo1.NewIndex) = Adodc2.Recordset.AbsolutePosition
Adodc2.Recordset.MoveNext
Loop
End Sub

perdon si mi pregunta es muy tonta, estoy tratando de aprender

Muchas Gracias