Tell A Friend Function With Messages Stored In MS SQL Server

Hi im finalizing a site for a custmer and now adding a Tell a friend function. I have done those before but not when storing
the mailmessage in the SQL server and my question is

 How do I build this up in a good way...I have done the mailsender and its sends the email but how do I bind it together...

I have two columns comming in a single row dataset from the Database:

MailSubject
MailBody

I dont want to bind it to a gridview or another control and then fetch that to my mail message

Public Function TellaFriend(ByVal strEmail As String, ByVal strMyName As String, ByVal cultureid As Integer) As String

  'Tell a friend
  Dim Data As DAL
  Data = New DAL

  Dim dsEmail As DataSet = Data.GetEmailMessage(1, cultureid)
 
  MyMailMessage.From = New MailAddress(info@company.com, "Customer Service")
  MyMailMessage.To.Add(New MailAddress(strEmail, "Hint from a friend" & strMyName))
  MyMailMessage.Subject = dsEmail("MailSubject")
  MyMailMessage.IsBodyHtml = False
  MyMailMessage.Body =  dsEmail("MailBody")

  'Create the SMTPClient object and DO NOT specify the SMTP server name
  Dim SMTPServer As New SmtpClient()
  Dim MailSent As String

  Try
    SMTPServer.Send(MyMailMessage)
    MailSent = "True"
    Catch ex As SmtpException
    MailSent = "False"
  End Try
  Return MailSent
End Function

Of course this doesnt work but what do I need to do to bind Data.GetEmailMessage(1, cultureid) without using a gridview or any other datapresentation control directly in this function?

If you need it this is from my DALFunction GetEmailMessage(ByVal intMessageId As Integer, ByVal intCultureId As Integer) As DataSet

Dim DS As DataSet
Dim objConn As SqlConnection
Dim objCmd As SqlDataAdapter

objConn = New SqlConnection(_connStr)
objCmd = New SqlDataAdapter("sp_GetEmailMessage", objConn)
objCmd.SelectCommand.CommandType = CommandType.StoredProcedure

objCmd.SelectCommand.Parameters.Add(New SqlParameter("@messageid", SqlDbType.Int))
objCmd.SelectCommand.Parameters("@messageid").Value = intMessageId

objCmd.SelectCommand.Parameters.Add(New SqlParameter("@cultureid", SqlDbType.Int))
objCmd.SelectCommand.Parameters("@cultureid").Value = intCultureId

DS = New DataSet()
objCmd.Fill(DS, "dsMailMessage")
Return DS
End Function

Thanks,