ich glaube, Dein Fehler liegt daran, dass Du das so definiert hast:

Dim rs As Recordset

Der Aufruf erfolgt aber als

Set rs = New Recordset

Du solltest entweder bei der Definition New mit reinnehmen oder aber es beim Aufruf weglassen. Probier's mal.