error de sql

[juanjose472]

Hola compañeros, estoy realizando un programa en el cual va a servir para llevar el control de notas de alumnos pero, en las sentencias de sql para copiar de textbox a la base de access me tira error talves me puedan ayudar.

gracias


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Try

Dim Mov As New OleDbConnection()
Mov.ConnectionString = ("PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & Ruta)
'Dim Consulta As String = "Select * From alumnos"
'Dim objAdap As New OleDbDataAdapter(Mov)
Dim Guardar As String = "insert into nota ( nombre, carrera, jornada, zona, examenteorico, examenpractico, modulo ) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','" & TextBox7.Text & "')"
Dim comando As New OleDbCommand(Guardar, Mov)
comando.CommandType = CommandType.Text
Mov.Open()
comando.ExecuteNonQuery()
MessageBox.Show("Los Datos fueron guardados con exito", "Datos Guardados...")
Mov.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try

End Sub