谁有连接SQL的代码

Set ykconn=Server.CreateObject("ADODB.Connection")
Connstr="Driver={SQL Server};Server=服务器IP;Database=数据库名;uid=用户名;pwd=密码"
ykconn.Open connstr