select distinct

Private Sub Form_Load()

If CN.State = adStateOpen Then CN.Close

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\db.mdb" & ";"

rs.Open "Select DISTINCT * from Table1 ", CN, adOpenKeyset, adLockOptimistic

Do While Not rs.EOF

Combo1.AddItem rs.Fields("ISO").Value & vbNullString

Combo2.AddItem rs.Fields("Joint_status").Value & vbNullString

rs.MoveNext

Loop

End Sub