用ADO 通过OLE DB 联接SQL SERVER的数据库可用下面的方法:
Dim Cnn,StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider=sqloledb;User ID=sa;Password=;" _ 
                              & "Initial Catalog=manage2001;Data Source = Ch0"
Cnn.Open StrCnn其中CataLog为SQL SERVER数据库名  Data Source 是SQL SERVER 所在的服务器名