مشكله في كود الاضافة بالفيجوال بيسك

السلام عليكم

عندي مشكله بالفيجوال بيسك <_<

لما احاول احط كود الإضافه على قاعدة بيانات sql ما يضيف والكود مافيه اخطاء :(

وجربت على قاعدة بيانات اكسل تحصل لي حاجه غريبه ..... لما يكون في حقلين في القاعده يضيف معاي زي الفل احط ثلاث حقول يقول لي ان تمت الاضافه لكن لما اروح لقاعدة البيانات ما اشوف البيانات اللي اضفتها :(

وهذا الكود

 

Imports System.Data.SqlClient
Imports System.Data

Public Class Form1
	Inherits System.Windows.Forms.Form
	Dim con As String
	Dim dbcon As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\db.mdf;Integrated Security=True;User Instance=True")
	Dim da As New SqlDataAdapter
	Dim ds As DataSet = New DataSet
	Dim dr As DataRow
	Dim cmd As New SqlCommandBuilder
	Dim sql As String

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		sql = "select * from emp"
		da = New SqlDataAdapter(sql, dbcon)
		da.Fill(ds)
		dr = ds.Tables(0).NewRow
		dr(0) = TextBox1.Text
		dr(1) = TextBox2.Text
		dr(2) = TextBox3.Text
		dr(3) = TextBox4.Text
		ds.Tables(0).Rows.Add(dr)
		cmd = New SqlCommandBuilder(da)
		da.InsertCommand = cmd.GetInsertCommand
		da.Update(ds)
		DataGridView1.DataSource = ds.Tables(0)
		MsgBox("good add")
	End Sub
End Class

طبعا انا حطيت داتا فيو عشان اتأكد ان البيانات تدخل في الدي اس ولا لا وفعلا تدخل الدي اس لكن ما يعمل تحديث على الاتصال بالبيانات الجديده

والله يوفق من يوجد لي الحل :rolleyes: