Dim sConn, objConn, rsTable
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsTable = Server.CreateObject("ADODB.RecordSet")
sConn = "Provider=SQLOLEDB; Data Source=MyServer;" & _
"Initial Catalog=pubs;User ID=steve;Password=stevespwd"
objConn.open sConn
Set rsTable = objConn.Execute("select * from customers"
Steve Jones
steve@dkranch.net