Run-Time error -2147217900(80040e14) Syntax error in INSERT INTO statement

[rahul more]

Hiiii I am making my project in VB6.0 and my back end is Access 2003. I hav one problem.....
When I going to save data into database, at at cmdSave_Click event, VB giving me error(Error mentioned at heading)after clicking on SAVE button and Highlighting the statement which are as follows.....

rs.Open "Insert into addclasses (Batch, BatchTime, Std, CollYear, SchlBtchName, CollBtchName, BatchType, SchlSubjct ,CollSubjct, Teacher, Days, LecDate, StartTime, AM/PM1, EndTime, AM/PM2) values ("& cboBtch.Tag & ", " & cboBtchTime.Tag & ", " & cboStd.Tag & ", " & cboYear.Tag & ", " & cboBtchNoSchl.Tag & ", " & cboBtchNoColl & ", " & cboBtchType.Tag & ", " & cboTeacher.Tag & ", '" & txtDays.Text & "', #" & DTPicker1.Value & "#, '" & txtStrtTime.Text & "', " & cboTime1.Tag & ", '" & txtEndTime.Text & "', " & cboTime2 & ")", con, adOpenDynamic, adLockOptimistic

(inside Module)
 
Option Explicit
Public con As ADODB.Connection
Public rs As ADODB.Recordset
 
 
Public Function conn()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CCMS.mdb;Persist Security Info=False"
 
con.Open "CCMS.mdb"
End Function
 
Public Function reco()
Set rs = New ADODB.Recordset
End Function
 

(in actual form's code window)
Private Sub cmdSave_Click()
If rs.State = 1 Then rs.Close
Call reco 
 
rs.Open "Insert into addclasses (Batch, BatchTime, Std, CollYear, SchlBtchName, CollBtchName, BatchType, SchlSubjct ,CollSubjct, Teacher, Days, LecDate,StartTime, AM/PM1, EndTime, AM/PM2) values (" & cboBtch.Tag & ", " & cboBtchTime.Tag & ", " & cboStd.Tag & ", " & cboYear.Tag & ", " & cboBtchNoSchl.Tag & ", " & cboBtchNoColl & ", " & cboBtchType.Tag & ", " & cboTeacher.Tag & ", '" & txtDays.Text & "', #" & DT1.Value & "#, '" & txtStrtTime.Text & "', " & cboTime1.Tag & ", '" & txtEndTime.Text & "', " &cboTime2 & ")", con, adOpenDynamic, adLockOptimistic
 
Call cleaner(Me)     'Cleaning all textboxes and comboboxes.
MsgBox "Successfuly Save!!", vbInformation, "CCMS"
 
 
 

[debasisdas]

Try renaming the following columns in the database table and re-execute the code.

1. AM/PM1
2. AM/PM2

[rahul more]

Very Very Thanx a lot debasisdas..... now my code is working........