If e.Name = "数据库" Then
If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\HEHUI\data\订单.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456") = False Then
if FileSys.FileExists(e.ProjectPath & "xingcheng.mdb") then
e.Connection String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "xingcheng.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456"
else
Syscmd.Project.Exit()
End If
end if
End If
另外,对不对你自己测试一下不就知道了? 这种问题需要问?(虽然你的代码确实不对) 不对的时候再出来问为什么不对.