Visual Basic - Ayuda con DAO

Necesito llenar Combo1 con los Registros de un Campo de una Base de Datos de Access, pero que no Existan Registros Duplicados en el Combo1, Estoy Utilizando DAO
Mil Gracias

Private Sub Form_Load()
dim Bdd as database,MiReg as recordset
Set Bdd = OpenDatabase(App.Path + "\base.mdb" )
Set Mireg = Bdd.OpenRecordset("select Distinct Campo from Tabla")
Do Until Mireg.EOF
Combo1.AddItem Mireg!Campo
Mireg.MoveNext
Loop
End Sub

Muchas Gracias por tu ayuda Pedro Luis