请教：VB调用VC dll 报错 - .NET技术 / VB.NET

VC中的导出的函数是这样的：

extern "C" __declspec(dllexport)
HRESULT Connect(LPCSTR IpAddr, CHAR* pcUserName = NULL, CHAR* pcPassword = NULL)//返回0表示连接成功，非0则失败
{
  ...
}

我在VB中声明如下：

Declare Function Connect Lib "C:\example.dll" (ByVal IpAddr As String, ByVal UserName As String, ByVal Passwd As String) As Integer

同时，我定义

Const NULL = 0

然后调用：

Dim result As Integer

result = Connect("138.139.0.230", NULL, NULL)

If result <> 0 Then

  MsgBox("error_connect")

  Return

End If

结果总是报错，请问哪里不对呢？

---

Const NULL = Nothing

报错信息是什么？

---

看下：
result = Connect("138.139.0.230", nothing, nothing)

---

result = Connect("138.139.0.230", String.Empty, String.Empty)？

---

用nothing试过了，还是不行，报错就是说 result 不等于0

进入到 MsgBox("error_connect")

---

String.Empty也试过了，返回值也非0。

---

把后两个参数的ByVal改成ByRef也不行。。。

---

result = Connect("138.139.0.230", NULL, NULL)
-----------
你看一下，它返回的不是0，返回的具体是个什么东西？调试一下或者直接吧结果MsgBox出来

---

返回的就是一个负值：-1071579135

---

我用VC写的程序调用这个Connect函数：

HRESULT result