ايران ويج

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