[kslawy]

السلام عليكم ورحمة الله وبركاته

أولاً قبل كل شيء اضغط بالماوس علي اسم المشروع واختر الخيار الثالث Clean لتنظيف مشروعك من أي شوائب (لم يشتغل مع البرنامج إلا بعد عمل ذلك)

حسنا قمت بتعديل بسيط في الـ Module كالتالي :

PHP كود :

Imports System.Data.OleDb

Module Module1
    Public UserName As String
    Public passWord As String
    Public cnn As New OleDbConnection
    Public cmd, bmd, dmd As New OleDbCommand
    Public da, db, dc, de, df, dk, dg, dj, di, dm, dn, ds, dv As OleDbDataReader
    Public dbval As Integer
    Public sel As New OleDbCommand           'SQL لتنفيذ أحد أوامر 
    Public dl, adapt, adapt1, adapt2 As New OleDbDataAdapter     'dset وسيط بين قاعدة البيانات والكائن
    Public dset, dset1, dset2 As New DataSet                'قاعدة بيانات مؤقتة مخزنة في الذاكرة

    Public dr As DataRow
    Public strconn As String = ""
    Public Vflag As Boolean = False
    Public searchtype As String ' this is to decide the search type selected to print report 
    Public Gadd, Gedit, Gdel, Gadduser, Gedituser, Gdeluser, Gbakup, Gcopy As String
    Public textf, numf As String ' this use to take textbox val


    Public conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source= " & Application.StartupPath & "\aytamdata.mdb;Jet OLEDB:Database Password=2;")       'للاتصال بمصدر قاعدة بيانات
    Sub ConnectDB()
        Try
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
            conn.Open()
        Catch ex As Exception
            MsgBox("تعذر الاتصال بقاعدة البيانات ")
        End Try
    End Sub

    Sub CloseDB()
        Try
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        Catch ex As Exception
            MsgBox("تعذر قطع الاتصال بقاعدة البيانات ")
        End Try
    End Sub


End Module 


وكذلك تم تعديل الكود في الـ Sub المسمى addnum في النموذج (تم فتح الاتصال ثم اغلاقه) كالتالي :

PHP كود :

Private Sub addnum()
        ''''''''''''''''''''''''''''''''''''''''''''إضافة رقم أخر سجل
        adapt = New OleDb.OleDbDataAdapter("select * from  kafeal  where kafeal.[رقم_الكفيل] order by val(kafeal.[رقم_الكفيل])", conn)
        dset.Clear()
        ConnectDB() '---------------------------- اغلاق الاتصال
        adapt.Fill(dset, "kafeal")
        CloseDB() '---------------------------- اغلاق الاتصال
        ama = Me.BindingContext(dset, "kafeal")
        ama.Position = ama.Count - 1
        Try
            TextBox9.DataBindings.Add("Text", dset, "kafeal.رقم_الكفيل")
            TextBox1.Text = Val(TextBox9.Text.Trim) + 1
        Catch ex As Exception
        Finally
            adapt.Dispose()
            conn.Close()
        End Try
    End Sub 


تم تجربة الحفظ في قاعدة البيانات وتمت بنجاح

والله اعلم