مشكلة في التعديل والحذف من قاعدة البيانات

السـلام عليكم ..

حالياً أنا أعمل برنامج مستخدماً الفيجوال بيسك 2005 .. وقاعدة البيانات اكسس 2003

ولدي مشكلـتين ..

الأولى في التعديل على قاعدة بيانات ..

حيث تظهر لي هذه الرسـالة ..

وهذا هو الكود المندرج تحت زر التعديل

Dim SaveInto As New OleDbCommand
		Dim InfoConnection As New OleDbConnection
		InfoConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\pc4444855\My Documents\برنامج بيانات الشركات\address_Book.mdb"
		SaveInto.Connection = InfoConnection
		SaveInto.CommandText = CommandType.Text
SaveInto.CommandText = "UPDATE Company1 SET Company# = '" & CompanyNum_TextBox.Text.Trim & "' ,Company_Name= '" _
		& CompanyName_TextBox.Text.Trim & "',C_Num='" & CNum_TextBox.Text & "',Agreement_sign_date='" _
		& SingtureDate_TextBox.Text & "',Tel-1#='" & Tel1_TextBox.Text.Trim & "',Tel-2#='" & Tel2_TextBox.Text.Trim & _
		"',Fax#='" & Fax_TextBox.Text.Trim & "',Company_E-mail='" & Email_TextBox.Text.Trim & "',Website='" & WebSite_TextBox.Text.Trim & "',RB_EMP='" & RBEmpName_TextBox.Text & _
		"',RBTel#='" & RBEmpTel_TextBox.Text.Trim & "',RBExt='" & RBEmpExt_TextBox.Text.Trim & "',RBMobile#='" _
		& RBMobile_TextBox.Text.Trim & "',RB_Email='" & EmpEail_TextBox.Text.Trim & "',Memo='" & Memo_TextBox.Text.Trim & "',Region#='" & ComboBox1.Text & _
		"',POBox='" & PO_TextBox.Text & "' where Company# = '" & CompanyNum_TextBox.Text & "'"
InfoConnection.Open()
		SaveInto.ExecuteNonQuery()
		InfoConnection.Close()
		MsgBox("تم التعديل")
End Sub

والمشكلة الثانية في الحذف

حيث تظهر لي هذه الرسالة

وهذا الكود المندرج تحت زر الحذف

Private Sub Delete_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Delete_Button.Click
		If MsgBox("هل تريد الحذف", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
			Exit Sub
		End If
		Dim SavInto As New OleDbCommand
		Dim InfoConnection As New OleDbConnection
		InfoConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\pc4444855\My Documents\برنامج بيانات الشركات\address_Book.mdb"
		Dim DataAdapter1 As New OleDbDataAdapter(SQLStr, InfoConnection)
		SavInto.Connection = InfoConnection
		SavInto.CommandType = CommandType.Text
		SavInto.CommandText = " delete from Company1 where Company# = '" & CompanyNum_TextBox.Text.Trim & "'"
		InfoConnection.Open()
		SavInto.ExecuteNonQuery()
		InfoDataSet.Clear()
		DataAdapter1.Fill(InfoDataSet, "Company1")
		InfoConnection.Close()
		MsgBox("تم الحذف")

	End Sub

أرجو مساعدتي .. ولكم جزيل الشكر