base de datos en access

[Maxi.Net]

Muy buen ejemplo FNX_NET resumido y comentado queda mejor:

Dim ex As Exception 'variable que guardara una exepcion (error)
Dim connClientes As New OleDb.OleDbConnection() 'objeto de ADO.net para conectar con la BD
Dim MyCommandCli As New OleDb.OleDbCommand() 'objeto de ADO.net para ejecutar la consulta SQl

connClientes.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.strRutaCliente & "\COVEFAC.mdb" 'defino el proveedor y la bd para la conexion.

Try 'inicio del manejador de errores
connClientes.Open() 'abrimos la conexion a la B.D

'defino los parametros para el comando SQL
MyCommandCli.CommandText = "INSERT INTO tblClientes (Rut,Razon_Social,Giro,Fono)" & _
" VALUES(@datRut,@datRazCli,@datGiro,@datFono)"

'Inicio traspaso de parametros insert

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datRut", System.Data.OleDb.OleDbType.VarWChar)) 'nuevo parametro definicendo el tipo: VarWChar para datos de tipo texto

MyCommandCli.Parameters("@datRut").Value = Me.txtRut.Text 'asigno el valor al parametro para, mas adelante, mandarlo a la tabla de la B.D

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datRazCli", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datRazCli").Value = Me.txtRazonSocial.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datGiro", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datGiro").Value = Me.txtGiro.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datFono", System.Data.OleDb.OleDbType.Integer)) 'de tipo Integer para datos numéricos
MyCommandCli.Parameters("@datFono").Value = Val(Me.txtFijo.Text)

'fin traspaso de parametros insert

MyCommandCli.ExecuteNonQuery() 'ejecuto la consulta

Catch ex 'en caso de excepciones
MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source) 'muestro la excepción contenida en la variable "ex"

End Try 'fin del manejador de errores

if ex is nothing then 'si "ex = nada, es decir, no se produjeron errores"
MsgBox("Registro insertado con éxito", MsgBoxStyle.Information, "SQL INSERT")
end if

connClientes.Close() 'cierro la conexión

espero quede un poco mas claro

Saludos