السلام عليكم
كتبته هنا على السريع ستجد افضل منه في المنتدى
كود :
Dim connectstring As String = "connectstring"
Dim myconnect As New SqlConnection(connectstring)
Dim mycommand As New SqlCommand(" DELETE FROM Persons WHERE id=10", myconnect)
Try
myconnect.Open()
mycommand.ExecuteNonQuery()
myconnect.Close()
Catch [error] As Exception
MessageBox.Show([error].ToString())
End Try