لماذا يتاخر تحميل الفورم

لماذا يتاخر تحميل الفورم

هذا هو الكود في حدث التحميل

فما سبب تاخير التحميل

هذا الكود فاين الخطا

Private Sub Form_Load()

On Error Resume Next

If db.State = adStateOpen Then db.Close

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

FrmUser.Left = (FrmMain.Width - FrmUser.Width) / 2

FrmUser.Top = 0

Calendar = vbCalHijri

CboDay.Text = Format(Date, "dd")

CboManth.Text = Format(Date, "mm")

TxtYear.Text = Val(Format(Date, "yyyy")) + 2

Call LoadInComboBox

Set Cn = New ADODB.Connection

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=optimize; Data Source=" & App.Path & "\data.mdb"

'ÊÚÈÆÉ Combo1

Set RS = New ADODB.Recordset

RS.Open "SELECT F9 FROM WORKERS", Cn, adOpenStatic, adLockOptimistic

If Not RS.BOF Then RS.MoveFirst

While Not RS.EOF

Combo13.AddItem RS!F9

RS.MoveNext

Wend

End Sub