[ahmedfa71]

السلام عليكم ورحمة الله وبركاته 
شكرا لك أخي elgokr على الرد
فعلا أخي عند جعل خاصية الرقم ترقيم تلقائي ( AutoNumber )
تمت عملية الحفظ ولكن بضهور خطأ ثاني 
لا توجد للمعلمة @Nom قيمة افتراضية.
مع العلم أنني لا أريد للرقم أن يكون AutoNumber 
وبارك الله فيكم 

مع العلم في عملية من الفورم textbox تتم العملية بنجاح مع أن الرقم ليس ترقيم تلقائي 
كمايلي في الكود أدناه

كود :

Private Sub NemID()
       Dim N As Integer
       cn.Open()
       cmd.CommandText =
       <sql>
                   SELECT
                       Nem                    
                   FROM
                       Emp;
               </sql>.Value
       Dtr = cmd.ExecuteReader
       While Dtr.Read
           N = Dtr(0)
       End While
       N += 1
       TextBoxNem.Text = N.ToString("000000")
       cn.Close()
   End Sub
    
    Private Sub ButtonAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAjouter.Click
       cn.Open()
       cmd.CommandText = "SELECT COUNT (*) FROM Emp WHERE Nem='" & TextBoxNem.Text & "'"
       Dim Cpt As Int16
       Cpt = cmd.ExecuteScalar
       If Cpt = 0 Then
           cmd.CommandText = "INSERT INTO Emp(Nem,nom,NCompte,Cle,MontApayer,Motif)VALUES ('" & TextBoxNem.Text & "','" & TextBoxNomPren.Text & "','" & TextBoxNCcp.Text & "','" & TextBoxCle.Text & "','" & TextBoxMontant.Text & "','" & ComboBoxMotif.Text & "')"
           cmd.ExecuteNonQuery()
           MessageBox.Show("تمت عملية الحفظ بنجاح")
       Else
           MessageBox.Show("هذا الإسم موجود مسبقا")
       End If
       cn.Close()
       ShowdDataGView()
   End Sub