Actually that was no help but i was able to figure this out using Stringbuilder
Append Property and Use Html code and a Datarow to loop thru my dataset.
see below thanks
rik
Dim sb As New StringBuilder
oMailMsg.BodyFormat = MailFormat.Html
Dim aRow As DataRow
sb.Append("<p><img SRC=C:\SelectLogo.gif></p><br>")--Image embeded
For Each aRow In ds.Tables(0).Rows
sb.Append("<table border=1><tr><td>" + aRow.Item(0) + "</td>" + "<td>" + aRow.Item(1) + "</td></tr></table>")
Next
oMailMsg.Body = sb.ToString