[adel27]

بالضبط يا سلام عليك هذا اللي أبيه إذا مفعل أسمح بالتكرار 

إذا غير مفعل لا تسمح بالتكرار 


   da = New SqlDataAdapter("select * From All_Data Where Num_P = '" & TxtNumPark.Text & "'", conn)
        ds = New DataSet
        da.Fill(ds)
        If CheckBox1.CheckState = 1 Then
            da.Fill(ds)
            Dim shk As New DataTable
            shk = ds.Tables(0)
            If shk.Rows.Count > 0 Then
                MsgBox("عزيز المستخد البرقيه مكرره ", MsgBoxStyle.Critical, "تنبيه")
                'Exit Sub

هاذي الجمله بدون التشك بكس فعاله 
ولكن لما أضعها في جملة أف تتفعل بعدم التكرار في حالة عدم التفعيل البرنامج لا يضيف ويعطي خطأ ولا يسوي شي ....!!!