مشكلة عند التعديل على البيانات

كود :

Public Sub Update_Car_info(ByVal Car_Number As Long, ByVal Car_Module As Long, ByVal Car_Tybe As String, ByVal Car_Qesem As String, ByVal Car_Molahthat As String, ByVal Car_IDW As Long)

    Dim Cmd As New OleDbCommand

    With Cmd

        .Connection = con

        .CommandType = CommandType.Text

        .CommandText = "Update Car_info Set Car_Number = @Car_Number,Car_Module = @Car_Module,Car_Tybe = @Car_Tybe,Car_Qesem = @Car_Qesem,Car_Molahthat = @Car_Molahthat, Where Car_ID = @Car_ID"

        .Parameters.Clear()

        .Parameters.AddWithValue("@Car_Number", OleDbType.Integer).Value = Car_Number

        .Parameters.AddWithValue("@Car_Module", OleDbType.Integer).Value = Car_Module

        .Parameters.AddWithValue("@Car_Tybe", OleDbType.VarWChar).Value = Car_Tybe

        .Parameters.AddWithValue("@Car_Qesem", OleDbType.VarWChar).Value = Car_Qesem

        .Parameters.AddWithValue("@Car_Molahthat", OleDbType.VarWChar).Value = Car_Molahthat

                .Parameters.AddWithValue("@Car_ID", OleDbType.Integer).Value = Car_IDW

    End With

    If con.State = 1 Then con.Close()

    con.Open()

    Cmd.ExecuteNonQuery()

    con.Close()

    MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")

    Cmd = Nothing

End Sub

PHP كود :

Public Sub Update_Car_info(ByVal Car_Number As Long, ByVal Car_Module As Long, ByVal Car_Tybe As String, ByVal Car_Qesem As String, ByVal Car_Molahthat As String, ByVal Car_IDW As Long)
    Dim Cmd As New OleDbCommand
    With Cmd
        .Connection = con
        .CommandType = CommandType.Text
        .CommandText = "Update Car_info Set Car_Number = @Car_Number, Car_Module = @Car_Module, Car_Tybe = @Car_Tybe, Car_Qesem = @Car_Qesem, Car_Molahthat = @Car_Molahthat Where Car_ID = @Car_ID"
        .Parameters.Clear()
        .Parameters.AddWithValue("@Car_Number", OleDbType.Integer).Value = Car_Number
        .Parameters.AddWithValue("@Car_Module", OleDbType.Integer).Value = Car_Module
        .Parameters.AddWithValue("@Car_Tybe", OleDbType.VarWChar).Value = Car_Tybe
        .Parameters.AddWithValue("@Car_Qesem", OleDbType.VarWChar).Value = Car_Qesem
        .Parameters.AddWithValue("@Car_Molahthat", OleDbType.VarWChar).Value = Car_Molahthat
        .Parameters.AddWithValue("@Car_ID", OleDbType.Integer).Value = Car_IDW
    End With
    If con.State = ConnectionState.Open Then con.Close()
    con.Open()
    Cmd.ExecuteNonQuery()
    con.Close()
    MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
    Cmd = Nothing
End Sub