Access Database write problem.

[Lexwebb]

I am having problems writing to my .accdb database. Here is the code, any input would be welcome. I am also trying to avoid using a pure MYSQL.

Sub Add_to_database()
        Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\Homework_Database.accdb"
        Dim myConnection As OleDbConnection = New OleDbConnection()
        myConnection.ConnectionString = connString
 
        Dim cmdString As String = "Insert INTO Homework (HomeworkID, Name, Description, StartDate, EndDate, MaxMarks, ClassID) " & "VALUES (@HomeworkID, @Name, @Description, @StartDate, @EndDate, @MaxMarks, @ClassID)"
        Dim da As New OleDbDataAdapter
        Dim accCommand As New OleDbCommand
        Dim intinsert As Integer
 
        accCommand.Connection = myConnection
        acccommand.commandtype = CommandType.Text
        acccommand.CommandType = cmdString
        InsertParameters(acccommand)
        intinsert = acccommand.ExecuteNonQuery()
 
        If intinsert = 0 Then
            MessageBox.Show("The data insertion has failed")
            Exit Sub
        End If
    End Sub
 
    Private Sub InsertParameters(ByRef cmd As OleDbCommand)
        cmd.Parameters.Add("@HomeworkID", OleDbType.Char).Value = "1"
        cmd.Parameters.Add("@Name", OleDbType.Char).Value = txt_name.Text
        cmd.Parameters.Add("@Description", OleDbType.Char).Value = txt_desc.Text
        cmd.Parameters.Add("@StartDate", OleDbType.Char).Value = dtp_start.Text
        cmd.Parameters.Add("@EndDate", OleDbType.Char).Value = dtp_end.Text
        cmd.Parameters.Add("@MaxMarks", OleDbType.Char).Value = txt_maxmarks.Text
        cmd.Parameters.Add("@ClassID", OleDbType.Char).Value = 1
    End Sub