Innazi tutto ci sono delle virgolette... all'interno delle virgolette ! il che significa che apri le virgolette all'inizio... e poi le chiudi all'altezza di .Item("mail
la virgoletta di .Item("mail di fatto chiude la stringa proprio dopo la parentesi tonda.

Questo è il primo errore.

Ma secondo me le virgolette non ci vanno proprio... ovvero dovebbe essere così:

msg.To = Recordset1.Fields.Item("mail_us").Value

(ps. non so poi se la sintassi recordes1.fields etc. è giusta.)