Hello ,
Most probably you column name contains spaces , hence error comes .
put those columns in square braces .
Change like this way ,
Dim sqlinsert As String
sqlinsert = "INSERT INTO CLASS(ID, STUDENT_ID, DOP, [NAME OF ACCOUNT], [CLASS TEACHER], [CLASS NAME])" &
"VALUES(@ID, @STUDENT_ID, @DOP, @NAME_OF_ACCOUNT, @CLASS_TEACHER, @CLASS_NAME)"
Dim CMD As New OleDbCommand(sqlinsert, conn1)
CMD.Parameters.Add(New OleDbParameter("@ID", txt_id))
CMD.Parameters.Add(New OleDbParameter("@STUDENT_ID", txt_std))
CMD.Parameters.Add(New OleDbParameter("@DOP", txtx_dop))
CMD.Parameters.Add(New OleDbParameter("@NAME_OF_ACCOUNT", txt_acc))
CMD.Parameters.Add(New OleDbParameter("@CLASS_TEACHER", txt_teacher))
CMD.Parameters.Add(New OleDbParameter("@CLASS_NAME", txt_teacher))
Thanks