关于VB连接数据库问题！继续老大们帮忙啊！

我是个VB新手``我想写个能连接远程数据库的小程序``但出现解决不了的问题~希望大家能帮忙``谢谢了``

Private Sub Command1_Click()
'测试连接Access数据库的按钮Click事件。
Dim curRes As NETRESOURCE  运行时~提示用户类型未定义~不知道是什么问题~希望大家能详细的讲解下```谢谢了！~
curRes.dwType = RESOURCETYPE_ANY
curRes.lpLocalName = vbNullString
curRes.lpRemoteName = "\\hacvip.cn"
curRes.lpProvider = vbNullString
'建立网络连接。
If WNetAddConnection2(curRes, "brookfax_zhenghaomai", "administrator", 0) <> 0 Then
MsgBox "网络连接失败，请检查网络设置是否正确！"
Exit Sub
End If

Dim cn As New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\hacvip.cn\d$\BrookFax\bbs/Data/anyhackcdm_ggao.mdb;Persist Security Info=False"
MsgBox cn.ConnectionString
cn.Close


End Sub
--------------------编程问答-------------------- 具体的不知道， 
是不是需要添加什么引用啊 ？

补充：VB ,  数据库(包含打印，安装，报表)