مشكلة بكود التعديل بسبب جملة فور

PHP كود :

   Public Sub insert_Main(ByVal ID As Integer, ByVal FName As Integer, ByVal Shara As Integer, ByVal Tel As String, ByVal Cost As String, ByVal DDate As Date)

        Dim cmd As New OleDbCommand("insert into tb2 (ID,FName,Shara,Tel,Cost,DDate) values(@ID,@FName,@Shara,@Tel,@Cost,@DDate)", con)
        cmd.Parameters.Add("@ID", OleDbType.Integer).Value = max_Main() + 1
        cmd.Parameters.Add("@FName", OleDbType.Integer).Value = FName
        cmd.Parameters.Add("@Shara", OleDbType.Integer).Value = Shara
        cmd.Parameters.Add("@Tel", OleDbType.VarChar).Value = Tel
        cmd.Parameters.Add("@Cost", OleDbType.VarChar).Value = Cost
        cmd.Parameters.Add("@DDate", OleDbType.Date).Value = DDate.ToString("yyyy/MM/dd")
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub



    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        If cmbName.Text = "" Or txtCost.Text = "" Then
            MsgBox("قم بتعبئة الحقول الفارغة", MsgBoxStyle.Information, "تنبيه")
            Exit Sub
        Else
            '-----------------------------------------------------------------

            insert_Main(txtid.Text, ID, ID, txtTel.Text, txtCost.Text, dtDate.Value)
            dgv.DataSource = dt2
                MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.Information, "الإضافة")
                'AllClear()
                FillDGV()
            End If

        'If txtShara.Text = "" Then
        '    MsgBox("قم بكتابة رقم الشارة لإتمام عملية الإضافة", MsgBoxStyle.Information, "تنبيه")
        '    Exit Sub
        'End If

        'If txtCost.Text = "" Then
        '    MsgBox("أدخل المبلغ لإتمام عملية الإضافة", MsgBoxStyle.Information, "تنبيه")
        '    Exit Sub
        'End If


    End Sub 

كود :

Dim cmd As New OleDbCommand("update tb1 set FName=@FName where id=@id", con)

cmd.Parameters.Add("@FName", OleDbType.VarChar).Value = FName



cmd.Parameters.Add("@id", OleDbType.Integer).Value = id

con.Open()

cmd.ExecuteNonQuery()

con.Close()