como llenar una base de datos de acces desde vb

Introducir Datos Desde Un Textbox A Una Base Access En Vb.Net

La idea básica es utilizar un 'bindingsource' y un commandbuilder para tu adataptador de datos, a partir de este concepto es tansimple como añadir un 'datarow' o registro a tu tabla de datos 'datatable' cada vez que pulsamos 'enter' y la longitud de los datos introducidos es mayor de cero. Posteriormente para actualizar o añadirlos registros del 'datatable' a la BD de access utilizaremos el mandato 'update' (al pulsar un boton en nuestro caso), o asociado al momento que consideres oportuno.
Puedes descargarte este ejemplohaciendo click en 'attachments'
Imports System.Data.OleDb
Imports System.Data.DataRow
Public Class Form1
Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=|DataDirectory|\bd1.mdb")
Private MiAdaptador As New OleDbDataAdapter("SELECT * FROM Nombres", MiConexion)
Private MiDataSet As New DataSet()
Private MiEnlazador As New BindingSource
PrivateSub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If (e.KeyChar = Chr(Keys.Enter)) And (Me.TextBox1.Text.Length > 0) Then
Dimnombre As DataRow
nombre = MiDataSet.Tables(0).NewRow()
nombre("Nombre") = TextBox1.Text
MiDataSet.Tables(0).Rows.Add(nombre)
Me.TextBox1.Text = ""Me.ComboBox1.SelectedIndex = Me.ComboBox1.Items.Count - 1
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim commandbuilder AsNew OleDb.OleDbCommandBuilder(Me.MiAdaptador)
MiConexion.Open()
MiAdaptador.Fill(MiDataSet)
MiEnlazador.DataSource = MiDataSet.Tables(0)
Me.ComboBox1.DataSource = MiEnlazadorMe.ComboBox1.DisplayMember = "Nombre"
Me.ComboBox1.ValueMember = "Id"
Me.TextBox1.Select()
End Sub
Private Sub Guardar(ByVal sender As System.Object, ByVal e As System.EventArgs)...