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