Ayudemme a ver mi error al intentar ingresar datos a mi base de datos desde vb 2010?

[adriansanchez]

Imports System.Data
Imports System.Data.OleDb
Public Class Form

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conconexion As OleDb.OleDbConnection
Dim con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
Application.StartupPath & "\siscont_basic_database.accdb;Jet OLEDB:Database Password=siscont_basic_1616;"
conconexion = New OleDb.OleDbConnection(con)
Try
conconexion.Open()
Dim a As String = "Insert into contabilidad_siscont_basic (id,cuenta,tipo,fecha,concepto,valor) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "'" & ")"
Dim c As New OleDb.OleDbCommand(a, conconexion)
'----------SUMAR VALORES---------------
c.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Error de Conexion", MsgBoxStyle.Exclamation, "Registro de Cliente")
End Try
conconexion.Close()
End Sub
End Class