解决VB和SQL的连接失败问题

sxycgxjdim cn as adodb.connection
dim rs as adodb.recordset
dim strcnn as string
strcnn="Driver={SQL Server};Server=red;UID=SA;PWD=;Database=Book" '设置服务器连接字符串
set cn= new Adodb.Connection
cn.open strcnn '创建连接
strSQL="Select companyid,companyname from company" '设置查询语句
set rs=new adodb.recordset
set rs=cn.Execute(strSQL) '执行查询语句

SQL数据库 的话，看你代码中是否是sa帐户才能，连接，如果是，那你把SQL数据库的帐户换位sa登录，看是否可以连上数据库。

你看下服务管理器是否运行正常，这个不正常不可能连接成功的，

找到配置数据库连接的地方看看，用户名，密码，路径之类的配没配错啊。