[vb6.0] مساعدة في برنامج يرتكز لقاعدة بيانات أكسس

بسم الله الرحمن الرحيم

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

أرجو مساعدتي في برنامجي البسيط في برمجة بعض الأزرار وبعض اللمسات البسيطه عليه ولا شي أخر ،،،

انا مبتدئ بالفيجوال بيسك وهذا أول برنامج لي أريد برمجته ليساعدني في مقر عملي ، قمت ببرمجة الأزرار ما عدا المُحددة وتطبيق إتصال بالداتا بيس أكسس،، بعد 3 أيام من التعلم والتطبيق بحمدالله

كما بالصورة أريد برمجة زر الحفظ والتعديل عند إضافة اسما جديدة ، وكود البحث في الداتا بحسب الإسم ، وطريقة إخفاء اداة الadodc1 من البرنامج في اسفل يسار الشاشة

وملاحظة **

البيانات المعروضة بالتكست بوكس عند تظليلها وحذفها فإنها تنحذف من الداتا !!

ما هي الطريقة لمنعها من الحذف وجعلها تنحذف فقط عن طريق زر الحذف المُخصص لذلك ؟

أرجو المساعدة إخواني

كود :

Imports System.Data.OleDb

Dim Home As New OleDbConnection

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load





        Home.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\Database71.accdb"





Dim MED As New OleDbCommand

            MED.Connection = Home

            MED.CommandText = "insert into ostaz values ('" + TextBox1.Text + "','" + TextBox2.Text + "')"

            MED.ExecuteNonQuery()

كود :

Dim MODZ As OleDbDataReader



            Dim MAD As New OleDbCommand

            MAD.Connection = Home

            MAD.CommandText = "select * From ostaz where Name ='" + TextBox1.Text + "'"





            MODZ = MAD.ExecuteReader



            If MODZ.Read Then

                TextBox1.Text = MODZ(1)





            Else

                MsgBox("   لا يوجد [" + TextBox1.Text + "] ", MessageBoxIcon.Stop)

                Label3.Text = "Error "

            End If