peace be with you

i make small project using ( adodc1 - combo1 - 2 text )

i make a connect between ( adodc1 & combo1 ) after "run" all the data in the database delete and be empty !!
i use this code for showing :
Code:
Private Sub Form_Load()
Do
Combo1.AddItem Adodc1.Recordset("name")
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF = True
End Sub
how i can make the ( adodc1 & combo1 ) show the data and not delete

thanks