are you looking for something like this?
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.ConnectionTimeout = 60
dbConn.CommandTimeout = 300
dbConn.Open "DSN=DSNNAME;DATABASE=DATABASENAME","USERNAME","PASSWORD"
Set rsCustomers = Server.CreateObject("ADODB.RecordSet")
rsCustomers.ActiveConnection = dbConn
strSQL = "Select * From Customer where customerid = 1"
rsCustomers.Open strSQL,,1,3
If NOT(rsCustomers.EOF) Then
customerName = rsCustomers("CustomerName")
password = rsCustomers("CustomerPassword")
End If
rsCustomers.Close
Set rsCustomers = NOTHING
dbConn.Close
Set dbConn = NOTHING