2 Code:
Dim mycmd As New OleDb.OleDbCommand _
("INSERT INTO DailyR_tbl (DateIn, DName, Holiday, ComID, DepID, SecID, StaffName, 9-10AM, 10-11AM, 11-12AM, 1-2PM, 2-3PM, 3-4PM, 4-5PM) " & _
"VALUES (@myDate, @dayCombo, @holBox, @comCombo, @DepCombo, @SecCombo, @staffCombo, @Job1, @job2, @job3, @job4, @job5, @job6, @job7)", mycon)
mycmd.Parameters.AddWithValue("@myDate", CDate(txtDate.Text))
mycmd.parameters.addwithvalue("@myCombo", Daycombo.SelectedValue.ToString)
mycmd.parameters.addwithvalue("@holBox", Holidaychbox.CheckState.ToString)
mycmd.parameters.addwithvalue("@comCombo", Comcombo.SelectedValue.ToString)
mycmd.parameters.addwithvalue("@depCombo", Depcombo.SelectedValue.ToString)
mycmd.parameters.addwithvalue("@secCombo", Seccombo.SelectedValue.ToString)
mycmd.parameters.addwithvalue("@staffCombo", Staffcombo.SelectedValue.ToString)
mycmd.parameters.addwithvalue("@job1", txtJob1.Text)
mycmd.Parameters.AddWithValue("@job2", txtJob2.Text)
mycmd.Parameters.AddWithValue("@job3", txtJob3.Text)
mycmd.Parameters.AddWithValue("@job4", txtJob4.Text)
mycmd.Parameters.AddWithValue("@job5", txtJob5.Text)
mycmd.Parameters.AddWithValue("@job6", txtJob6.Text)
mycmd.Parameters.AddWithValue("@job7", txtJob7.Text)