Que tal tio usando oledb estoy utilizando este codigo que utiliza parametros y es un poco extenso espero te sirva.
Otra cosa en .net segun leí la conexion a la bd se debea abrir y cerrar despues de obtener los datos o hacer cualquier consulta sql
Código:
'Declaras el namespace en VB.NET 2003
Imports System.Data.OleDb
Inherits System.Windows.Forms.Form
'Declarar las variables debajo de Inherits System.Windows.Forms.Form
Dim oConexion As OleDbConnection
Dim oDataSet As DataSet
Dim oDataAdapter As OleDbDataAdapter
'En form load haces la conexion
' crear conexión
oConexion = New OleDbConnection
oConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source=C:\DB01.mdb"
' crear adaptador
oDataAdapter = New OleDbDataAdapter
' crear comandos para inserción, consulta con sus parámetros y asignarlos al adaptador
Dim oCmdInsercion As New OleDbCommand("INSERT INTO cargo (codcargo,nomcargo) VALUES(@codcargo,@nomcargo)", oConexion)
oDataAdapter.InsertCommand = oCmdInsercion
oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@codcargo", SqlDbType.VarChar))
oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@nomcargo", SqlDbType.VarChar))
Dim oCmdConsulta As New OleDbCommand("SELECT * FROM cargo", oConexion)
oDataAdapter.SelectCommand = oCmdConsulta
' crear conjunto de datos
oDataSet = New DataSet
'Para insertar haces esto
Dim iResultado As Integer
' asignar valores a los parámetros para el comando de inserción
oDataAdapter.InsertCommand.Parameters("@codcargo").Value = Me.TextBox1.Text
oDataAdapter.InsertCommand.Parameters("@nomcargo").Value = Me.TextBox2.Text
' abrir conexión
oConexion.Open()
' ejecutar comando de inserción del adaptador
iResultado = oDataAdapter.InsertCommand.ExecuteNonQuery()
' cerrar conexión
oConexion.Close()
MessageBox.Show("Registros añadidos: " & iResultado)