Extraer valores unicos de acces

hola amigos buen dia

construyo una base en acces que se alimenta a traves de un

formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao,

Call conexion

Set rs = New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable

End With

For a = 1 To 130

If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then

combo1.Add CStr(rs.Fields("FACTURAPOST").Value)

End If

rs.MoveNext

Next a

' organizar datos en el listbox

For I = 1 To combo1.Count - 1

For j = I + 1 To combo1.Count

If combo1(I) > combo1(j) Then

ref1 = combo1(I)

ref2 = combo1(j)

With combo1

.Add ref1, before:=j

.Add ref2, before:=I

.Remove I + 1

.Remove j + 1

End With

End If

Next j

Next I

' agregar datos al listbox

For Each dato In combo1

ListBox3.AddItem dato

Next dato

rs.Close

Set rs = Nothing

saludos