vbConnStr = "Provider=SQLOLEDB.1;Password=你的密码;User ID=你的用户名;Initial Catalog=数据库名;Data Source=机器名;Packet Size=4096"
Set vConnection = Server.CreateObject("ADODB.Connection")
vConnection.Open vbConnStr这样试试吧`~````~