Private Sub Form_Load()
Data1.Refresh
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields(0)
Data1.Recordset.MoveNext
Wend
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)