extraer de BD con un combobox URGENTE

[jose58]

bueno la conexion que uso es

Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "\\172.16.217.41\Encuesta\encuestas.mdb")

busca = Combo6.Text

SQL = "SELECT * FROM 01 WHERE CEDULA LIKE '" & busca & "'"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text4.Text = ""
Text4.Text = Text4.Text & RS("NOMBRE")
Text2.Text = ""
Text2.Text = Text2.Text & RS("TELEFONO")
Text3.Text = ""
Text3.Text = Text3.Text & RS("CIUDAD")
RS.MoveNext
Loop



pero los numeros estan cargados en el form

asi:

Private Sub Form_Load()
Combo1.AddItem "1586157220"
Combo1.AddItem "04140121710"

pero yo quiero que los numeros salgan de la base de datos y asi cuando los use los pueda eliminar y no se carguen en el combobox.