Dim Conn, RS, sql
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Provider=SQLOLEDB;Data Source=(local);Database=db_name;UID=user_name;PWD=user_pass"
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open sql, Conn, 1, 1