Cita:
Iniciado por jafl318 
eres tan amable y me das un ejemplo?
Bueno, a ver si te vale esto:
Al campo de las dos tablas le hemos puesto el mismo nombre (Campo1) pero pueden tener nombres diferentes. Comparamos el valor de cada campo y listamos el mayor en un control ListBox:
Código:
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs1.Open "SELECT Campo1 FROM Tabla1", cn, adOpenDynamic, adLockOptimistic
rs2.Open "SELECT Campo1 FROM Tabla2", cn, adOpenDynamic, adLockOptimistic
Do Until rs1.EOF
List1.AddItem IIf(rs1(0) > rs2(0), rs1(0), rs2(0))
rs1.MoveNext
rs2.MoveNext
Loop
