Primero lo que debes hacer es conseguir tu string de conexión. Para ello crea un archivo de texto en cualquier lado y cámbiale la extencion por ".udl". Vas a ver que se cambia el icono. Le haces doble clic y se te abre una ventana. Vas a la pestaña Proveedor y eliges Microsoft jet 4.0 OLE DB provider. Presiona siguiente y pone la ruta donde guardaste tu base de datos de Access, lo otro lo dejas como estas a menos que le hayas puesto una contraseña a la BD. En este último caso cambia los parámetros según corresponda. Dar aceptar.
Ahora abrirlo como el bloc de notas y copia la línea que dice algo como:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Public\Documents\DB\BaseDeDatos.md b;Persist Security Info=False
Ahora vamos a tu proyecto de vb. crea un formulario y ponle el textBox y un botón. Luego anda al código y escribí lo siguiente:
Public Class Form1
Dim stringConexion As String ="aca la linea de código que copiaste del archivo udl"
Private Sub insertarEnTabla()
Dim conexion As New Data.OleDb.OleDbConnection
Dim cmd As New Data.OleDb.OleDbCommand
Dim data As New DataTable
Dim consulta As String
conexion.ConnectionString = stringConexion
conexion.Open()
consulta = "insert into nombreTabla values ('" & texBox.text.trim & "')" 'esta es la sentencia que insertara el texto de tu texBox dentro de la tabla que hayas creado en access
cmd.CommandType = CommandType.Text
cmd.CommandText = consulta
cmd.Connection = conexion
cmd.ExecuteNonQuery()
conexion.Close()
End Sub
Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click 'esto es el evento click del botón, lo generas simplemente haciendo doble clic en el mismo dentro del formulario
insertarEnTabla
End Sub
End Class
.jpg)
