<% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=dbUSM" ' Now database is open and we are connected ' Do some thing here 'We are done so lets close the connection 'Conn.Close 'Set Conn = Nothing %>