[Adrees]

اخي الكريم ربما المشكلة تكمن في ترتيب البارامترات
قم بتجربة الكود بالطريقة التالية

PHP كود :

Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
        ''UPDATERECORD()
        'On Error Resume Next
        Dim SQL As String = " Update tbl1 SET  b=@b, B3=@B3, B4=@B4, B5=@B5, B6=@B6, B7=@B7, B8=@B8, B10=@B10, B11=@B11, B12=@B12 WHERE ID=@id"
        Dim CMD As OleDb.OleDbCommand = New OleDb.OleDbCommand
        CMD.CommandType = CommandType.Text
        CMD.Connection = con
        With CMD
            .Parameters.AddWithValue("@b", Me.tex.Text.Trim)
            .Parameters.AddWithValue("@B3", Me.tex5.Text.Trim)
            .Parameters.AddWithValue("@B4", Me.tex6.Text.Trim)
            .Parameters.AddWithValue("@B5", Me.tex7.Text.Trim)
            .Parameters.AddWithValue("@B6", Me.tex8.Text.Trim)
            .Parameters.AddWithValue("@B7", Me.tex9.Text.Trim)
            .Parameters.AddWithValue("@B8", Me.tex10.Text.Trim)
            .Parameters.AddWithValue("@B10", Me.tex12.Text.Trim)
            .Parameters.AddWithValue("@B11", Me.tex20.Text.Trim)
            .Parameters.AddWithValue("@B12", Me.tex11.Text.Trim)
            .Parameters.AddWithValue("@id", Me.IDLb.Text.Trim)
        End With
        CMD.CommandText = SQL
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        CMD.ExecuteNonQuery()
        con.Close()
    End Sub