راهنمایی درباره ذخیره listbox درون اکسس

[a_m_i_n_000]

سلام
میخواستم بدون چطوری میشه یه داده های لیست باکس رو اکسس ذخیره کنم ؟ من از این کد استفاده میکنم ولی نمیشه .


If adodc.Recordset.EOF = False Then
End If
For i = 0 To List1.ListCount - 1
b = List1.List(i)
adodc.Recordset.Fields(i) = b
i = i + 1
Next

[Veteran]

For a = 0 To List1.ListCount - 1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Code") = List1.List(a)
Adodc1.Recordset.Update
Next

تست کن ببین جواب میده.
کامپوننت adoc روی سیستمم مشکل داره
نتونستم تست کنم
شاید این کد خطا بده
اطلاعات لیست باکس رو درون فیلد کد درج میکنه