On Error Resume Next Dim conn, rstemp, strSQL, rsoutline, rsmethod Set conn = Nothing Set rstemp = Nothing Set rsoutline = Nothing Set rsmethod = Nothing Set conn = Server.CreateObject("ADODB.Connection") conn.Open Application("ConnectionString")