هذا الكود الخطا سهل بس ما ادري وينه

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\data.mdb"

RS.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs1.Open "[co4]", db, adOpenStatic, adLockPessimistic

Do While Not rs1.EOF

Combo18.AddItem rs1!author

Combo22.AddItem rs1!author

Combo25.AddItem rs1!author

rs1.MoveNext

Loop

rs1.Close

rs2.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs3.Open "[co5]", db, adOpenStatic, adLockPessimistic

Do While Not rs3.EOF

Combo20.AddItem rs3!mohagg

Combo24.AddItem rs3!mohagg

Combo26.AddItem rs3!mohagg

rs3.MoveNext

Loop

rs10.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs11.Open "[co6]", db, adOpenStatic, adLockPessimistic

Do While Not rs11.EOF

Combo23.AddItem rs11!motargm

rs11.MoveNext

Loop

rs11.Close

rs4.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs5.Open "[nsr]", db, adOpenStatic, adLockPessimistic

Do While Not rs5.EOF

Combo21.AddItem rs5!nasher

rs5.MoveNext

Loop

rs5.Close

rs6.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs7.Open "[co7]", db, adOpenStatic, adLockPessimistic

Do While Not rs7.EOF

Combo19.AddItem rs7!baldnshr

rs7.MoveNext

Loop

rs7.Close

rs8.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs9.Open "[sUPJCT123]", db, adOpenStatic, adLockPessimistic

Do While Not rs9.EOF

Combo1.AddItem rs9!SUBJCT

Combo4.AddItem rs9!SUBJCT

Combo5.AddItem rs9!SUBJCT

rs9.MoveNext

Loop

rs9.Close

rs12.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs13.Open "[co9]", db, adOpenStatic, adLockPessimistic

Do While Not rs13.EOF

Combo3.AddItem rs13!magas

rs13.MoveNext

Loop

rs13.Close

rs14.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs15.Open "[co1]", db, adOpenStatic, adLockPessimistic

Do While Not rs15.EOF

Combo12.AddItem rs15!selselah

rs15.MoveNext

Loop

rs15.Close

rs16.Open "[workers]", db, adOpenStatic, adLockPessimistic

rs17.Open "[co2]", db, adOpenStatic, adLockPessimistic

Do While Not rs17.EOF

Combo2.AddItem rs17!gelaf

rs17.MoveNext

Loop

rs17.Close

ما هو الخطأ في الكود لو سمحتم

رسالة الخطا

عندي الفورم لا يعمل مرتتين متتاليتين

ويعطيني هذه الرسالة

ولا استطيع فتحه الا بعد اغلاق البرنامج كامل