خطايي در قطعه كد ....( ado )

[shahram_beheshti]

سلام و خسته نباشيد خدمت دوستان گرامي

كد فوق كه براي تشخيص نوع حساب وارد شده مي باشد شامل خطاهاي زير مي باشد :

هنگام ورود با معاون و همچنين دفتر دار در خط مروبط به " رفتن به ركورد بعدي يا همان Adodc.Recordset.MoveNext خطايي رخ مي دهد . ( البته به فرم مورد نظر وارد مي شود ولي به محض لود شدن خطاي مذبور را دارد )

* در بخش ورود با مدير هيچگونه مشكلي به آن وارد نيست

در صورت امكان دوستان گرامي راهنمايي كنند. با سپاس فراوان!

Adodc.Refresh
مربوط به مدير
Do While Adodc.Recordset.EOF = False
   If Adodc.Recordset.Fields!modir_name = Trim(txtname.Text) And _
      Adodc.Recordset.Fields!modir_pass = Trim(txtpass.Text) Then
      Unload Frm_login
      Admin.Show
      Exit Sub
     End If
    
مربوط به معاون
  If Adodc.Recordset.Fields!moaven_name = Trim(txtname.Text) And _
      Adodc.Recordset.Fields!moaven_pass = Trim(txtpass.Text) Then
      Unload Frm_login
      frm_Moshakhasat.Show
    
مربوط به دفتردار
ElseIf Adodc.Recordset.Fields!daftardar_name = Trim(txtname.Text) And _
      Adodc.Recordset.Fields!daftardar_pass = Trim(txtpass.Text) Then
      Unload Frm_login
      Frm_vaziyat.Show

   End If

   Adodc.Recordset.MoveNext
Loop

Exit Sub

[hamed_Arfaee]

هنگام ورود با معاون و همچنين دفتر دار در خط مروبط به " رفتن به ركورد بعدي يا همان Adodc.Recordset.MoveNext خطايي رخ مي دهد . ( البته به فرم مورد نظر وارد مي شود ولي به محض لود شدن خطاي مذبور را دارد )

با سلام
اين خطاي مذبور چي هست ؟
براي دريافت جواب كامل همون فرم رو اينجا آپلود كن

[shahram_beheshti]

سلام مجدد به حضور ناظم محترم سايت

همانطور كه عرض كرده بوديد فايل مذبور رو آپلود كردم

آدرس فايل :

http://shahram2006.persiangig.com/Visual...tabase.zip

منتظر پاسختان هستم

موفق باشيد

[hamed_Arfaee]

با سلام
برنامه رو ديدم و تغيير دادم
هم ديتابيس رو هم برنامه رو

[shahram_beheshti]

سلام دوباره خدمت ناظم محترم انجمن و سپاس از زحماتتان

در پناه حق