¿Codigo para alta a registros en una BD de Access o Excel desde un control data?

[El_chapulin]

Necesito el codigo para dar de alta registros en una aplicacion de visual basic ya sea en una base de datos de Access o Excel 

[CeLaYa]

mira para abrir una BD puedes hacerlo asi

Dim BD as Database
Dim Tb as Recordset



set BD = Workspaces(0).Opendatabase("Tu base de datos")

set tb = BD.OpenRecodset(Tabla o consulta SQL)



para agregar registros

tb.Addnew
tb!Campo1 = Valor1
tb!campo2 = Valor2....
tb.Update
--------------------------
o puedes meter una consulta SQL
bd.execute ("INSERT INTO Tabla (campo1, campo2...) " & _
                  "VALUES (Valor1, Valor2...)


para cerrar la BD
tb.close
BD.close
set tb = nothing 'Liberas memoria
set BD = nothing