You can play around with Debug.Print rs![NameOfField]
You can add additional lines to test multiple fields.
Debug.Print rs![NameOfField]
Debug.Print rs![NameOfField]
Once you have that figured out, you can edit the To string
from
.To = "Address@Domain.com"
so it is something like
.To = rs![NameOfField]