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

[adriansanchez]

Pues.. repitoo..!! la base de datos.. si esta.. en bin.. y pues.. los datos si me leen pero al momento de ingresar datos.. pos.. no me ingresa.. el error.. que me sale es error de conecion este el codigo que tengo..!! yo..!!

Código:

Imports System.Data
Imports System.Data.OleDb
Public Class form1
Private Sub Form1Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Siscont_basic_databaseDataSet.contabili… table. You can move, or remove it, as needed.
Me.Contabilidad_siscont_basicTableAdapte…

Dim conconexion As OleDb.OleDbConnection
Dim cmdcommand As OleDb.OleDbCommand
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()
cmdcommand = New OleDb.OleDbCommand
cmdcommand.Connection = conconexion
cmdcommand.CommandText = "INSERT INTO contabilidad_siscont_basic (id,cuenta,tipo,fecha,concepto,valor) VALUES ('11234','2','1','','asdasd','300')"
cmdcommand.ExecuteNonQuery()
MsgBox("Registro Correcto", MsgBoxStyle.Information, "Registro de Cliente")
Catch ex As Exception
MsgBox("Error de Conexion", MsgBoxStyle.Exclamation, "Registro de Cliente")
End Try
conconexion.Close()
End Sub
End Class