الحذف والإستعلام في vb2005

اخى العزيز وجد بعض الاخطاء فى كود الحذف و اليك الكود الصحيح

Dim con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")
 SQLcmd.Connection = con
Dim SQLcmd As New SqlCommand("Delete coustom where coustom_id = 1", con)
SQLcmd.Connection = con
 Try
	  con.Open()
	   SQLcmd.ExecuteNonQuery()
	   MsgBox("item deleted")
 Catch ex As Exception
		MsgBox(ex.Message)
 Finally
		con.Close()
 End Try

برجاء ابتاكد من اسم الجدول و اسم ال coustom_id هل هى مطابقة للبيانات الموجودة فى قاعدة البيانات ام لا

هذا الكود انا مجربه بنفسى و شغال لو فى مشاكل هاتكون فى ال connection string لانها مش زى اللى عندى

و بالنسبة لكود الاستعلام هذا هو الكود الصحيح

Dim con As New SqlConnection("database=mydata;integrated security=true")
Dim da As New SqlDataAdapter("Select * from choosepicq", con)
Dim ds As New DataSet
 Try
	  con.Open()
	   da.Fill(ds, "Choosepicq")
	   DataGridView1.DataSource = ds
	   DataGridView1.DataMember = "Choosepicq"
 Catch ex As Exception
	   MsgBox(ex.Message)
Finally
		con.Close()
End Try

و لكن قم بتغيير ال connection بما يناسب التصال بقاعدة اليانات عندك و قم بتغيير اسم الجدول choosepicq الى اسم الجدول الذى تريد الاستعلام عن بياناته

أخي الغالي والله العظيم ما أدري كيف أشكرك

ما أقدر أقول إلا جزاك الله الف الف خير ويعطيك الف الف عافية

والله صراحة غمرتني الفرحة عندما نفذت البرنامج وتنفذ بعد تعديل الأخطاء

أخي العزيز أكرر شكري وتقديري لك