Set Conn = Server.createobject(“ADODB.Connection”)

Conn.Open “Provider=sqloledb;” & _
“Data Source=ServerName;” & _
“Initial Catalog=DatabaseName;” & _
“User Id=UserID;” & _
“Password=PWD”