как сделать запись с помощью внутреннего соединения в VB 6.0

Question

у меня есть 2 стола

t1
sid   svalue
1    aaaa
2    bbbb


t2
pid   sid
1      1
2      2

я хочу, чтобы набор записей содержал

pid     svalue
1       aaaa
2       bbbb

я использую

With AdoResult
If .State = adStateOpen Then .Close
.Open "Select t1.svalue,t2.pid from t2 inner join t1 on t1.sid=t2.sid", con, adOpenStatic, adLockPessimistic
Do Until .EOF
MsgBox (.Fields(1))
.MoveNext
Loop
End With      

но ничего не получаю, даже детали ошибки