USB上位机的问题

[ccbbcc]

USB下位机程序没问题。
上位机一个VB，一个VC。VC的可以连上，VB不行。
我对比了一下：
VC:
//如果调用成功，则使用不带读写访问的CreateFile函数
//来获取设备的属性，包括VID、PID、版本号等。
//对于一些独占设备（例如USB键盘），使用读访问方式是无法打开的，
//而使用不带读写访问的格式才可以打开这些设备，从而获取设备的属性。
hDevHandle=CreateFile(MyDevPathName,
NULL,
FILE_SHARE_READ|FILE_SHARE_WRITE,
NULL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
NULL);
hDevHandle返回的是170
VB:
HIDHandle = CreateFile _
(DevicePathName, _
0, _
(FILE_SHARE_READ Or FILE_SHARE_WRITE), _
0, _
OPEN_EXISTING, _
&H80&, _
0)
HIDHandle返回的是-1。我改来改去，都不对，一直是-1，请高手指教，谢谢！