query = "select item.instock from item where item.id=3"
mADOConnect.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\pr\HQ.mdb")
mRS.Open(query, mADOConnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
That does work! I didn't even know that I could open...