طلب أكواد أزرار الحذف والتحديث

السلام عليكم

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

لكني لا أريد العمل بذلك الشريط Bindingsource كي أبقى متحرر في التصميم لذلك وضعت الأزرار التالية وأكوادها

-------------------------------------------------

السجل الاول :

Table1BindingSource.MoveFirst()

السجل الاخير :

Table1BindingSource.MoveLast()

التالي :

Table1BindingSource.MoveNext()

السابق :

Table1BindingSource.MovePrevious()

إضافة سجل

Table1BindingSource.AddNew()

-------------------------------------------------

من يجيد التعامل مع الأ ديو سيلاحظ اني أعتمد إعتماد كلي على البيندينغ سورس لكني سأخفيه لاحقا

بقي لي زرين وهما الحذف و الحفظ

وقد قمت بوضع أكوادهما وهي كالتالي

كود زر الحذف

If MsgBox("هل تريد الحذف فعلا", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel
Then
Exit Sub
End If
Dim SavInto As New OleDb.OleDbCommand
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "DELETE FROM Table1 WHERE date ='" & _
Trim(datetextbox.Text) & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
MsgBox("تم الحذف بنجاح")
ChangePosition()

الخطأ بالظبط هو هنا يتلون هذا السطر باللون الأصفر

SavInto.ExecuteNonQuery()

كود زر الإضافة

Try
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\mydata.mdb"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Table1(id,Name,fname,date)" & _
"values ('" & idtextbox.Text & "','" & nametextbox.Text  & "','" & fnametextbox.Text "','" & datetextbox.Text & "') "
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تم إضافة السجل بنجاح")
Catch ex As Exception
Exit Sub
End Try

كذلك هنا يتلون باللون الأصفر

أرجوا المساعدة وبارك الله فيكم

SavInto.ExecuteNonQuery()