dim conn,ConnString set conn=server.createobject("ADODB.connection") ConnString="provider=sqloledb;data source=ServerName;uid=UserName;pwd=Password;datebase=DatebaseName;" conn.open ConnString