Why have you commented out this line?

'Dim rs As ADODB.Recordset