مشكلة في VB.NET و قاعدة بيانات SQL

اغلاق البرنامج لا يتحكم بالاضافة أو التعديل في قاعدة البيانات

بل عليك كتابة الكود الخاص بذلك

أرجو إرفاق الكود المسئول عن حفظ البيانات حتى نستطيع المساعدة.

شكراً لكم إخواني على محاولة إيجاد حل لمشكلتي الكود الذي أستعمله كالتالي :

ملاحظة هو عبارة عن كلاس :

Imports sqlClient.SqlConnection

Class ClsDB

	Public dbcon As SqlClient.SqlConnection
	Public dbcmd As SqlClient.SqlCommand

	Function connect(ByVal constr As String) As Boolean
		dbcon = New SqlClient.SqlConnection(constr)
		If dbcon.State = ConnectionState.Closed Then
			Try
				dbcon.Open()
			Catch ex As Exception
				MsgBox(ex.Message)
				Return False
			End Try
			Return True
		End If
		Return True
	End Function

	Function Close() As Boolean
		Try
			If dbcon.State = ConnectionState.Open Then
				dbcon.Close()
				Return True
			Else
				Return True
			End If
		Catch ex As Exception
			MsgBox(ex.Message)
			Return False
		End Try

	End Function

	Function cmd(ByVal sqlstr As String) As Boolean
		Try
			dbcmd = New SqlClient.SqlCommand(sqlstr, dbcon)

			dbcmd.ExecuteNonQuery()
			Return True
		Catch ex As Exception
			MsgBox(ex.Message)
			Return False
		End Try
	End Function
End Class