请教这样一个连接数据库的问题，出现下列错误？请帮我分析一下？万分感谢！

Question

我的数据库连接代码是这样的：
Public strCon As ConnectionPrivate Sub Command1_Click()
Dim str As String
 Set strCon = New Connection
 With strCon
     .ConnectionString = "DataSource=192.168.20.236,1433;Network Library=DBMSSOCN;Initial Catalog=Northwind;User ID=sa;Password=sa"
     .Open
 End With
 strCon.Close
 Set strCon = Nothing
End Sub
其中IP地址是对方安装了SQLSERVER服务器的IP地址，当运行的时候出现如下对话框：如下：
实时错误'-2147467259(80004005)':[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
请大家帮我想想啊？分析一下？

Answer 1

字符串换成这样的试试Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.20.236

Answer 2

换成了你的字符串，变成以后这个错误：
实时错误'-2147467259(80004005)':[DBNETLIB][ConnectionOpen(Connect()).]SQL Server不存在或拒绝访问。
请问是什么原因？

Answer 3

你可以这样试试，知道adodc控件把，右键控件，看见属性了吗？选择使用连接字符串，选择生成，按照向导操作，你要知道对方的ip，sqlserver的用户名及密码，及所要用的数据库，所有都操作完成后测试连接，是否成功，如果成功正常，如果不成功，把ip换成对方机器名，再试试，还是不行的话，只能重做系统了