Cita:
Iniciado por SalomonSab 
Prueba con esto a ver si te funciona
Código:
sql = "SELECT DISTINCT egresos.anio, ingresos.anio FROM egresos, ingresos order by anio"
Set rst = dbs.OpenRecordset(sql) 'TBL almacena todos los valores de la tabla
rst.MoveFirst 'nos posicionamos en el primer registro de la tabla
Do Until rst.EOF ''La propiedad EOF se pone TRUE cuando se a llegado al final de la tabla
Combo1.AddItem rst.fields("anio")
rst.MoveNext 'pasamos al siguiente registro
Loop
Ya luego me cuentas si te funciona
Muchas gracias SalomonSab, pero lamentable mente la instruccion como me mensionas continua marcandome un error, no de que otra forma pordria realizar la consulta? te lo agradeceria mucho. saludos
