Dataset not working

Can anyone look over this code and tell me why it is not sending the email?

It is getting data, I have put break points in many places.

Have not worked with datasets much so I could have something in the wrong order.Public Shared Sub SendAlert(ByVal intClient_ID As Int32, ByVal decAmt As Decimal)
Dim mailMerge As New MailMerge
mailMerge.IsBodyHtml = True
Dim Row As DataRow
Dim DS As New DataSet
Dim dt As DataTable

Dim ConnectStr As String = _
ConfigurationManager.ConnectionStrings("Con ...