[ناجح احمد]

استخدم datacombo بدل combobox فهي اسرع 

كود :

Private Sub DataCombo1_GotFocus()
If rs2.State = 1 Then rs2.Close
rs2.Open "select * from drug", conn2, adOpenStatic, adLockPessimistic
Set DataCombo1.RowSource = rs2
DataCombo1.ListField = "drug_t"

End Sub