sqlstr = " select 〜 from ddd where fff = " & Cells(i,1)

With wkR
.CursorLocation = adUseClient
.Open sqlstr, MgDB, adOpenStatic, adLockReadOnly
End With

みたいにしてっけど、こういう事じゃない？