vb生成的可执行文件不能登陆数据库

Question

Public Function connecttoserver() As Boolean
    con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=XIAOSOU;Data Source=EAGLE-PC"
    con.ConnectionTimeout = 5
    con.Open
    connecttoserver = True
End Function这是我用来建立总连接的函数，这个连接在vb中开发程序的时候是可以执行的，但在可执行文件exe中，启动时会提示无法登陆服务器。这是怎么回事？   我的系统是win7的，数据库是sql sever 2000   另外，电脑的用户是管理员用户，并设有密码。  急需各位帮忙了！

Answer 1

连接字符串有问题,拖一个adodc控件,属性里用字符串连接,测试成功后将连接字符串拷出覆盖代码里即可

Answer 2

我在问题中已经说了，在vb中该连接是有效的，而在脱离vb后的exe文件则无法连接。应该明白我的意思了吧