Syntax error in INSERT INTO statement in VB.net project for student into

i recieve that error but i dont know how to fix, im a student in programming so please help me out, here is my code. Im trying to make a student info for our project

Imports System.Data.OleDb
Imports System.Data

Public Class Form3

    Dim provider As String
    Dim datafile As String
    Dim connstring As String
    Dim connection As OleDbConnection = New OleDbConnection

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'ProjectDataSet.Student_Info' table. You can move, or remove it, as needed.
        Me.Student_InfoTableAdapter.Fill(Me.ProjectDataSet.Student_Info)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        datafile = "D:\Jaja Files\Programming files\Project.mdb"
        connstring = provider & datafile
        connection.ConnectionString = connstring
        connection.Open()
        Dim str As String
        str = "Insert into Student Info([Student ID#],[Given Name],[Surname],[Course],[Year],[Age],[Address],[Contact No],[Email])" + "VALUES (?,?,?,?,?,?,?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, connection)
        cmd.Parameters.Add(New OleDbParameter("Student ID#", CType(TextBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Given Name", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Surname", CType(TextBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Course", CType(ComboBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Year", CType(ComboBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Age", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Address", CType(TextBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Contact No", CType(TextBox6.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Email", CType(TextBox7.Text, String)))

        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            connection.Close()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            ComboBox1.ResetText()
            ComboBox2.ResetText()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox7.Clear()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        StudentInfoBindingSource.EndEdit()
        StudentInfoBindingSource.AddNew()
        Student_InfoTableAdapter.Update(ProjectDataSet.Student_Info)
        MessageBox.Show("Ok Prof!")


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        StudentInfoBindingSource.RemoveCurrent()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Hide()
        Form4.Show()
    End Sub
End Class

i already tried some but still i dont understand how those works,