告诉我答案，感激不尽，小可拜托众位大侠，还是ado连sql server的问题，送50分

[jxh_jxh]

先请众位大侠告诉我，如何给你们加分。
简述一下我的问题：
我用odbc创建了一个数据源，是sql server里自带的pubs，创的名称叫mydata，sql server的用户名为sa，密码没有，请众位大侠帮我一下，把用ado连sql server的字符串写出来，我一连就出错。
dim cn as connection
dim rs as recordset
set cn=new adodc.connection
cn.open (麻烦众位大侠给填一下）
再次表示谢谢了
我的信箱是[e-mail] or [e-mail]

[xtra]

Cn.Open "data source=mydata","sa" 或者
Cn.Open "DSN=mydata;Uid=sa;Pwd="
不行再问！！！我还没有做过验证。
另外如果给分的话在你问题页面，在每一个回复的旁边输入你给的分数，然后在题目旁边输入你的密码，然后给分就行了。不过给的分数总和应该和你的问题的分数一致才行。

[CIFUCA]

connectionsting="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=服务器名称"

另注意须引用 "Microsoft Activex Data Objects 2.X Library"

[bryan]

出什么错?

dim cn As ADODB.Connection
set cn=new adodc.connection
cn.open "dsn=mydata;uid=sa;pwd=;database=pubs"

[知行职场-雷曼]

Public Function GetConnectDSN(ByVal DSN As String) As String
Dim c As DataLinks
Dim d As ADODB.Connection
Set c = New DataLinks
Set d = New ADODB.Connection
d.ConnectionString = DSN
If c.PromptEdit(d) = True Then
GetConnectDSN = d.ConnectionString
mvarLastDSN = d.ConnectionString
mvarConnectResult = True
Else
mvarConnectResult = False
GetConnectDSN = ""
End If
Set d = Nothing
End Function