RE:Crear Conexion a BasedeDatos
Bueno... esto esta regado en la red, recuerda ser un poco investigativo y usar el foro para dudas despues de investigar.
La parte de la conexion, la puedes hacer asi:
Global db As ADODB.Connection
Global Recs As ADODB.Recordset
Set db = CreateObject("ADODB.Connection")
db.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "xxxxxxx.mdb")
reemplazando las "xxxxxxx" por el nombre de tu BD. Ademas debes incluir la referencia de microsoft ADO library, puedes usar la 2.6 en adelante, depende de la que tengas en tu pc
el Recs es el recordset con el cual te vas a mover entre registros
Un ejemplo de consulta
agreguemos un registro a la tabla "tabla"
Recs.Open "SELECT * FROM " & tabla, db, adOpenDynamic, adLockOptimistic
Recs.AddNew
For t = 0 To cajas
Recs.Fields(t).Value = Text1(t).Text
Next
Recs.Update
Recs.Close
t es el numero del campo de la tabla
Espero te sirva... bye