mmm se invece di Dim rs scrivi
codice:
Set rs = Server.CreateObject("ADODB.Recordset")