连接SQL数据库问题。谢谢

Question

 Set cnn = New ADODB.Connection
  cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=xswh"
上面是我连接数据库的代码，数据库是SQL的。用的是Adodc1，可是运行提示“[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序”
开始的时候可以用的，电脑坏了重装了SQL就不能用了。请高手指教，谢谢。
对了DNS我也设置了，可是还是不行。

Answer 1

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
'利用引用ODBC DRIVER打开CONNECTION对象
cnn.ConnectionString = "driver={SQL Server};" & _
"server=rgreennt;uid=sa;pwd=;database=pubs"
cnn.Open没有server

Answer 2

strConn="Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=data1;DataSource=xswh";缺少Initial Catalog，即数据库名称。

Answer 3

strConn="Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=data1;DataSource=xswh";

Answer 4

既然用了ADO控件，那就可以通过数据库连接向导，对生成的连接字符串进行测试就知道问题在哪了，正确的话都是 连接成功

Answer 5

重装电脑后，原来的ODBC数据源xswh已丢失。现在必须要重新建立ODBC数据源xswh，这样指向xswh的数据库才能成功访问

Answer 6

用ODBC重装系统后又要重新设置ODBC数据源，还是用OLe db方便。