Visual Basic - LLENAR COMBOBOX DE UNA CONSULTA SQL

Tengo una gran duda ya que estoy llenado los combo box a partir de una base de datos en access, mi programacion esta echa con DAO y tengo el siguiente codigo:

Private Sub CBOestado_GotFocus()
Do Until centros.EOF
CBOestado.AddItem (centros!estado1 & " " & centros!des_estado)
centros.MoveNext
End If
Loop
End Sub

Pero necesito darle ciertos parametros a esa consulta ya que hay valor que se repiten en la tabla y necesito que me muestre un unico valor por cada uno asi que tengo la siguiente consulta:

SQL = "Select distinct estado1,des_estado from centros"

Necesito saber como puedo hacer para agregar esta consulta y poder asi mostrar los resultados en el combo box. Otra cosa es que yo programo esto en el evento "Private Sub CBOestado_GotFocus()" pero sera que abra otra forma de hacerlo para que no se tarde a la hora de mostrarme los resultados???

Agradezco mucho de tu ayuda colega =)

Dim Consulta as string
dim Rs as recordset

Consulta = "Select distinct estado1,des_estado from centros"
Set Rs = Base.OpenRecordset(Consulta, , dbSeeChanges)
do while not rs.eof
CBOestado.AddItem (rs!estado1 & " " & rs!des_estado)
rs.MoveNext
loop
rs.close
set rs = nothing

Si colocas esto en el Form_Load entonces se cargara el combo una sola vez al entrar y no cada vez que obtienes el foco del objeto...

Gabriel.