Visual Basic - Conectar un ComboBox con una BD SQL

Como hago para conectar un ComboBox con un campo de una tabla de mi base de datos SQL 2000.
Al establecer las propiedades ConnectionString y DataField, el combo no se carga.
Al realizar la estructura.
Sub_Form Load
Adodc1.recordset.movefirst
Do While adodc1.recordset.EOF=False
Combo1.additem Adodc1.recordset
Loop

Esto me carga el combo pero me borra los datos de la tabla SQL

No he usaro SQL 2000, pero con Oracle o Acceso yo lo hago asi:
Adodc1.recordset.movefirts
while not adodc1.recordset.EOF
Combo1.AddItem Adodc1.recordset("nombre_campo_tabla")
adodc1.recordset.movenext (Te moves al proximo registro)
wend
Exitos.Comentame