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

Question

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

Answer 1

connectionsting="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=服务器名称"另注意须引用 "Microsoft Activex Data Objects 2.X Library"

Answer 2

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

Answer 3

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