[حريف برمجة]

تعديل كود الأخ :

كود :

If rs.State = 1 Then rs.Close
rs.Open "select * from mored ", DB, adOpenStatic, adLockPessimistic
If rs.RecordCount > 0 Then
For i = 0 To rs.RecordCount
Combo2.AddItem rs!Namee
rs.MoveNext
Next
end if