サーバーとデータベースドライバーを接続文字列に追加するだけです
例:
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "driver={SQL Server};"server= yourserver;uid =sa;pwd=pwd;database=pubs"
conn.open
Set cmd= Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn