مشكلة في عملية الإضافة إلى قاعدة البيانات

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

يا أخوان أنا عندي مشكلة في عملية الإضافة

عندما أعمل أضافة تتم العملية وأعمل أستعلام في نفس الوقت ويكون ناتج الإستعلام صحيح للشيء الذي تمت إضافة ولكن بمجرد أن أنهي التطبيق واشغل التطبيق مرة ثانية وأعمل استعلام لاشيء من الذي أضفته وإذا رحت لقاعدة البيانات نفسها ما في شيء يضاف وهذا هو الكود الذي استخدمته

اقتباس

Dim con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")

Dim SQLcmd As New SqlClient.SqlCommand("insert into coustom(coustom_name,coustom_phone)values(1,041442)")

SQLcmd.Connection = con

Try

con.Open()

SQLcmd.ExecuteNonQuery()

MsgBox("تمت إضافة السجل بنجاح", , "رسالة إضافة سجل")

Catch ex As Exception

MsgBox(ex.Message)

Finally

con.Close()

End Try

المشكلة الثانية يا أخوان أنني عندما اسند قيم نصية لل insert تظهر رسالة خطاء

فيحبذا الي عنده معرفة يساعدني وإن كانت طريقتي خاطئه أو فيها مشكلة فليعطيني الطريقة الصحيحة أكون شاكر له ومقدر

تحياتي