Visual Basic - Combo box me borra la BD. ESTE ES

Tengo el siguiente codigo para cargar los registros de una tabla en un combo box

Me.AdoDistrito.Recordset.MoveFirst
Do While Not Me.AdoDistrito.Recordset.EOF
Me.cb_distrito.AddItem (Me.AdoDistrito.Recordset.Fields(0))
Me.AdoDistrito.Recordset.MoveNext
Loop

El problema es que cuando lo ejecuto, aunque carga el combo box, me borra los registro en la base de datos.

Estoy trabajando con Access 97
Ayuda por favor.

Te puedo asegurar 100% que no se borra en ese DO WHILE.. revisa bien las lineas de codigos posteriores... o colocalas en el foro para ayudarte

Este es el código completeo de todo el formulario. Realmente estoy empesando el sistema y apenas estoy haciendo el Load, asi que no puede haber otro codigo que me lo borre porque no hay códigos porsteriores, es el único código que he escrito.

Quiero espelicar que no es que me elimine el registro, lo que hace es que lo deja en blanco.

Private Sub Form_Load()
Me.Height = 9800
Me.Left = 2160
Me.Top = 130
Me.Width = 11445

Me.AdoDistrito.Recordset.MoveFirst
Do While Not Me.AdoDistrito.Recordset.EOF
Me.cb_distrito.AddItem (Me.AdoDistrito.Recordset.Fields(1))
Me.AdoDistrito.Recordset.MoveNext
Loop
End Sub

lee bien esto m@ldito toca bolas

CHING@ A TU REPUT@ ________ PENDEJETE DE MIERD@