VB环境下使用USB设备,编译后不正常

查USB设备.
在VB环境下运行正常,编译后的.exe文件运行就不正常了,发现是
        HidDevice = CreateFile _
            (DevicePathName, _
            GENERIC_READ Or GENERIC_WRITE, _
            (FILE_SHARE_READ Or FILE_SHARE_WRITE), _
            0, _
            OPEN_EXISTING, _
            0, _
            0)
总返回-1
在VB环境下是能找到设备的系统安装了win2kddk.exe