[Ahmed_Mansoor]

أهلا أخي الكريم :

كود :

dim dbADODB As New adodb.Connection
dim rsEMPL As New adodb.Recordset

If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select DISTINCT Degree from EMPL", dbADODB, adOpenKeyset, adLockOptimistic

COMBO1.Clear
Do While Not rsEMPL.EOF
COMBO1.AddItem rsEMPL.Fields("Degree").Value
rsEMPL.MoveNext
Loop