how to populate distinct values from ms access db into combo box???

 Private Sub Form_Load()
	Set conAVB = New ADODB.Connection
	Set rsInfo = New ADODB.Recordset
	Set rsNegara = New ADODB.Recordset

	
	USP_DB = (App.Path & "\" & "ijazah tinggi.mdb")
	Set dbsUSP = OpenDatabase(USP_DB)
	conAVB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & USP_DB & ";Persist Security Info=False"
	conAVB.Open
	
	sql = "SELECT * FROM pelajar"
	
	With rsInfo
		.CursorLocation = adUseClient
		.Open sql, conAVB, adOpenDynamic, adLockOptimistic, adCmdText
	End With
	
		
End Sub 

SELECT DISTINCT [FieldName] FROM pelajar ORDER BY [FieldName]

While NOT .eof 
   combobox1.Item.Add(values here)
End While

 
Private Sub Form_Activate()
	rsGetNegara.Open "select distinct pel_wnegara from pelajar", con, adOpenDynamic, adLockOptimistic
While Not rsGetNegara.EOF
		cmbNegara.AddItem rsGetNegara.Fields(0).Value
		rsGetNegara.MoveNext
	Wend
End Sub

Public Conn As ADODB.Connection
Public rs As ADODB.Recordset
Public strSql As String

Private Sub Form_Load()
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Your ConnectionString"
    Conn.Open
    
    strSql = "SELECT DISTINCT pel_wnegara FROM pelajar ORDER BY Pel_wnegara"
    
    Set rs = Conn.Execute(strSql)
    
    If Not rs.EOF Then
        Do Until rs.EOF
            cboDepartment.AddItem (rs.Fields("pel_wnegara").Value)
            rs.MoveNext
        Loop
    End If
    
    Conn.Close
    Set Conn = Nothing
End Sub

If Not rs.EOF Then
		Do Until rs.EOF
			cboDepartment.AddItem (rs.Fields("pel_wnegara").Value)
			rs.MoveNext
		Loop
End If