Consulta de access desde VBA

[mutant_x]

dim bdd as database
dim T1 as Recorset, T2 as Recorset
Dim SQL As String
-----------------------------
Set BDD = CurrentDb()
SQL = "SELECT * FROM TABLADEEQUIPOS"
Set T1 = BDD.OpenRecordset(SQL)
SET T2 = BDD.OpenRecordset("TABLA CALENDARIO")

YA ESTA AHORA TIENES DENTRO DE VB DE ACCESS UNA TABLA VIRTUAL IDENTICA A LA QUE TIENE LOS EQUIPOS AHORA PUEDES USARLA COMO QUIERAS EL T1 ES UN ALIAS EN LO SUCESIVO DEBERAS USAR T1 PARA REFERIRTE A LA TABLA QUE CONTIENE LOS EQUIPOS.
EL T2 ES LA TABLA CALENDARIO DONDE GUARDARAS LO QUE QUIERES EL CALENDARIO DEL TORNEO O SEA EL RESULTADO DEL CODIGO QUE UTILICES PARA CREARLO.
PARA GUARDAR EN ESA TABLA LOS RESULTADOS :
T2.EDIT
T2![FECHA]= EL RESULTADO DEL CALCULO DE LAS FECHAS
T2![EQUIPO]= EL NOMBRE DEL EQUIPO
T2.UPDATE
ESTO ES PARA EDITAR.
PARA AGREGAR UNO NUEVO USAS ESTE
T2.ADD
T2![FECHA]= EL RESULTADO DEL CALCULO DE LAS FECHAS
T2![EQUIPO]= EL NOMBRE DEL EQUIPO
T2.UPDATE

BUENO CREO QUE CON ESTO PUEDES LOGRAR LO QUE QUIERES