我是个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 IfDim 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