Modificar una base de datos Access

Este codigo te funciona:

Sub SubirAAccess()
'PRIMERO EN EL EDITOR DE VISUAL BASIC por Herramientas-Referencias, MARCAS
LA ULTIMA VERSION de la conexion ADO que tengas (Microsoft Activex Data
Objects)
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" &
"C:\BaseDatos\MiDB.mdb"
Set rs = New ADODB.Recordset
rs.Open "MITABLA", cn, adOpenKeyset, adLockOptimistic, adCmdTable
With rs
.AddNew ' crea un nuevo registro
.Fields("NOMBRE") = Hoja1.Range("a1") ' fields es el nombre del
campo en la tabla access
.Fields("APELLIDO") = Hoja1.Range("B1") 'aidiciona tantos campos
(fields) necesites
.Update ' guarda el nuevo registro
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub


Luis Medina
Menufazt - Utilidades en Excel
http://www11.brinkster.com/LUISM0/


"Carlos" escribió en el mensaje
news:

Hola a todos
Necesito insertar un nuevo registro a una tabla que tengo en Access desde
código VB en Excel. Alguien sabe como hacerlo?

Gracias

Carlos

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004