VB6 在 Win 7 呼叫 RegQueryValueEx

=====================================================

我用VB6 在 Windows 7 Professional 的 OS 上呼叫 RegQueryValueEx

lRes = RegOpenKey(hKey, SubKey, lHandle)

lRetLen = 400

sRetVal = Space(lRetLen)

lRes = RegQueryValueEx(lHandle, ValueName, 0, REG_SZ, ByVal sRetVal, lRetLen)

我試著去讀底下裡面所有的 REG_SZ 的資料 (用 不同的 ValueName)

HKEY_LOCAL_MATHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

但是 底下的2 項卻讀不出來 (IRes = 2)

CSDVersion

ProductId

可是 當我在 Windows XP Professional 底下執行卻沒有問題

=====================================================

請問

1. 是那兒出錯了 或是我少安裝了什麼?

2. 承上 將來可能還會有什麼問題

3. 同樣的程式碼 在 XP 底下完全沒有問題 但是在 Windows 7 下 "開啟" 時出現

**************************************

Data View

Automation error

Error accessing the OLE registry

**************************************

錯誤訊息

這是那兒出錯了? 如何修正?

謝謝