[عبدالله الصافي]

أخي الكريم بداية قم بقطع اتصال الكمبوبوكس بقاعدة البيانات من خلال خصائص الكمبو
بمسح خاصية DataField
ومسح خاصية DataSource

واضافة ذلك الكود

كود :

Private Sub Form_Load()
Adodc1.RecordSource = "select* from tbl1"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Do
Combo2.AddItem Adodc1.Recordset.Fields![mizaname]
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF
Adodc1.Recordset.MoveFirst
Combo2 = Adodc1.Recordset.Fields![mizaname]
End Sub

وجعل ذلك الحدث بهذا الشكل

كود :

Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.Fields![mizaname] = Combo2
Adodc1.Recordset.Update
Adodc2.Recordset.Update
End Sub

ولكن خذ في اعتبارك أن ذلك الحل إذا كانت الاسماء لا تتكرر حتي لا تتكرر معك في الكمبو