如何在局域网中连接VB与SQL

Question

我想在在局域网中连接VB与SQL，用到如下代码：
Dim Cn As New ADODB.Connection
ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户;password=密码;Initial Catalog=数据库;Data Source=服务器"
Cn.Open
其中，User ID我尝试用客户端计算机名，也尝试了用IP地址，用户端计算机没有密码，服务器我尝试用计算机名，也尝试了用IP地址，所以我将代码写为：
ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户;password=;Initial Catalog=kk;Data Source=服务器"
但，没有连接成功。
是不是还要设置ODBC数据源？其中数据源的服务器设为所在的计算机名或地址吗？我进行了设置，但没连成，为什么？

Answer 1

cn.ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=;database=数据库名"
cn.open

Answer 2

dim cn as new adodb.connection    
cn.ConnectString = "Provider=SQLOLEDB.1;Password=kk;Persist Security Info=True;User ID=sa;
Initial Catalog=数据库;Data Source=计算机名或IP地址"
cn.open
不过你的机子首先要保证能访问到服务器啊！ping的到未必能连接的到哦，要能访问到那边共享的东西！

Answer 3

我用ADO控件链接局域网内的SQL Server服务器成功了。但用同样的代码链接因特网上的SQL Server却不成功了。请问是怎么回事呢？代码如下：
----------------------------------------------------------------
Adodc1.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户;password=密码;Initial Catalog=数据库名;Data Source=SQL Server服务器名"
----------------------------------------------------------------