ช่วยดูให้หนอ่ยครับมัน error Operation must use an updateable query. มันหมายความว่ายังไง

 Private Sub save_dvt()

        If txt_Preamble.Text = "" Then
            txt_Preamble.Focus()
        ElseIf txt_Company.Text = "" Then
            txt_Company.Focus()
        ElseIf txt_class.Text = "" Then
            txt_class.Focus()
        ElseIf txt_Cont.Text = "" Then
            txt_Cont.Focus()
        ElseIf txt_std1.Text = "" Then
            txt_std1.Focus()
        Else
            sb.Remove(0, sb.Length)
            sb.Append("insert into tb_dvt(id_dvt,Preamble,Company,class_name, Disciplines, Cont_std, std1, std2, std3, std4, std5)")
            sb.Append("values('" + txt_dvt.Text.Trim() + "','" + txt_Preamble.Text.Trim() + "','" + txt_Company.Text.Trim() + "','" + txt_class.Text.Trim() + "'")
            sb.Append(",'" + txt_Disciplines.Text.Trim() + "','" + txt_Cont.Text.Trim() + "','" + txt_std1.Text.Trim() + "','" + txt_std2.Text.Trim() + "'")
            sb.Append(",'" + txt_std3.Text.Trim() + "','" + txt_std4.Text.Trim() + "','" + txt_std5.Text.Trim() + "')")
            Dim consql1 As String = sb.ToString()
            com = New OleDbCommand
            With com
                .CommandType = CommandType.Text
                .CommandText = consql1
                .Parameters.Clear()
                .Connection = con
                .ExecuteNonQuery()
            End With
            MessageBox.Show("บันทึกข้อมุลเรียบร้อยแล้ว", "รายงานผล", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If
    End Sub