Ciao, prova a seguire queste indicazioni:
http://tutorials.aspfaq.com/8000xxxxx-errors/why-do-i-get-800a0e7d-errors.htmlcioè usa la parola chiave Set
Set rs_Partners_Mod_cmd.ActiveConnection = MM_saem_STRING
Se non dovesse funzionare, riscrivi quel codice senza usare l'ADODB.Command, ma direttamente il Recordset.
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM partners", MM_saem_STRING, 3, 3 'adOpenStatic, adLockOptimistic