[أبوسعود]

لو سمحتم اساتذتي الكرام وين الخطأ بالكود التالي :
Public Sub UpdateTable_Table1_InDirect(Id As String)
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter
        dt.Clear()
        Try
        da = New OleDbDataAdapter("Select * From Table1 Where Id =" & Id, con)
        da.Fill(dt)
        'If This ColumnName Is Already Exist Database Get MsgBox To Alert Don't Save
        If dt.Rows.Count = 0 Then
            MsgBox("لا يوجد سجل يمكن تعديله", MsgBoxStyle.Critical, "بيانات مفقودة")
        Else
            Dim pos As Integer = BindingContext(dt).Position
            Dim last As Integer = dt.Rows.Count - 1
            dt.Rows(pos).Item("Id") = txtId.Text
            dt.Rows(pos).Item("Name1") = txtName1.Text
             dt.Rows(pos).Item("Nike") = txtAge.Text
            dt.Rows(pos).Item("Age") = txtAge.Text
            dt.Rows(pos).Item("BirthDate") = dtpBirthDate.Value.Date
            Dim byteimage0() As Byte
            Dim ms0 As New MemoryStream()
            pbimg.Image.Save(ms0, pbimg.Image.RawFormat)
            byteimage0 = ms0.ToArray()
            dt.Rows(pos).Item("img") = byteimage0
            Dim Save As New OleDbCommandBuilder(da)
            da.Update(dt)
            dt.AcceptChanges()
        End If
        Catch ex As Exception
          MessageBox.Show("لا يمكن اتمام العملية" & Environment.NewLine & ex.Message, "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub
ينتج عن الكود السابق الخطأ التالي :