StudentID Lastname firstname Course sep1 sep2 sep3 sep4 sep5 sep6 sep7 absent  present

Try
        myconnection.Open()
        'Declaration of Variables
        Dim str As String


        Dim vIDNumber As String

        Dim lastname As String
        Dim vFirstName As String
        Dim vSection As String
        Dim vDate1 As Boolean
        Dim vDate2 As Boolean
        Dim vDate3 As Boolean
        Dim vDate4 As Boolean
        Dim vDate5 As Boolean
        Dim vDate6 As Boolean
        Dim vDate7 As Boolean
        Dim vDate8 As Boolean
        Dim vDate9 As Boolean
        Dim vAbsent As String
        Dim vPresent As String


        For x As Integer = 0 To Table2___lieDataGridView.Rows.Count - 2
            vIDNumber = Table2___lieDataGridView.Rows(x).Cells(1).Value

            LastName = Table2___lieDataGridView.Rows(x).Cells(2).Value
            vFirstName = Table2___lieDataGridView.Rows(x).Cells(3).Value
            vSection = Table2___lieDataGridView.Rows(x).Cells(4).Value


            vDate1 = Table2___lieDataGridView.Rows(x).Cells(0).Value
            vDate2 = Table2___lieDataGridView.Rows(x).Cells(1).Value
            vDate3 = Table2___lieDataGridView.Rows(x).Cells(2).Value
            vDate4 = Table2___lieDataGridView.Rows(x).Cells(3).Value
            vDate5 = Table2___lieDataGridView.Rows(x).Cells(4).Value
            vDate6 = Table2___lieDataGridView.Rows(x).Cells(5).Value
            vDate7 = Table2___lieDataGridView.Rows(x).Cells(6).Value
            vDate8 = Table2___lieDataGridView.Rows(x).Cells(7).Value
            vDate9 = Table2___lieDataGridView.Rows(x).Cells(8).Value
            vAbsent = Table2___lieDataGridView.Rows(x).Cells(34).Value
            vPresent = Table2___lieDataGridView.Rows(x).Cells(35).Value

            str = "Insert into StudentsAttendance ([ID Number],[FirstName],[FirstName],[Course &Section],[Date1],[Date2],[Date3],[Date4],[Date5],[Date6],[Date7],[Date8],[Date9],[Absent],[Present],[EQ]) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"


            Dim cmd As OleDbCommand = New OleDbCommand(str, myconnection)
            cmd.Parameters.AddWithValue("@IDNumber", vIDNumber)
            cmd.Parameters.AddWithValue("@Course&section", vSection)
            cmd.Parameters.AddWithValue("@LastName", LastName)
            cmd.Parameters.AddWithValue("@FirstName", vFirstName)

            cmd.Parameters.AddWithValue("@Date1", vDate1)
            cmd.Parameters.AddWithValue("@Date2", vDate2)
            cmd.Parameters.AddWithValue("@Date3", vDate3)
            cmd.Parameters.AddWithValue("@Date4", vDate4)
            cmd.Parameters.AddWithValue("@Date5", vDate5)
            cmd.Parameters.AddWithValue("@Date6", vDate6)
            cmd.Parameters.AddWithValue("@Date7", vDate7)
            cmd.Parameters.AddWithValue("@Date8", vDate8)
            cmd.Parameters.AddWithValue("@Date9", vDate9)
            cmd.Parameters.AddWithValue("@Absent", vAbsent)
            cmd.Parameters.AddWithValue("@Present", vPresent)

        Next

        myconnection.Close()
        MessageBox.Show("Saved Successfully!", "Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As OleDb.OleDbException
        MsgBox(ex.Message, MsgBoxStyle.Critical, "oledb Error")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
    End Try
End Sub