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