09-12-18, 01:34 AM
09-12-18, 11:27 PM
بارك الله فيكم تم حل المشكلة عن طريق هذا الكود
كود :
ComboJOP.Clear
If Cn.State = 1 Then Cn.Close
Call MyConnection
If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT * FROM Tab_jop", Cn, adOpenKeyset, adLockOptimistic
If Rs.RecordCount > 0 Then
Do Until Rs.EOF
ComboJOP.AddItem Rs![jOP]
Rs.MoveNext
Loop
'
Rs.MoveFirst
'
ComboJOP.Text = ComboJOP.List(0)
End If