Email excel file from memory stream

Thanks BC for your reply. Please see my code below. How do I convert the excel object I create to memory stream without saving it to the disc and attach it to email. (would be great if you can provide some sample codes)
I want to remove the
.ActiveCell.Worksheet.SaveAs(filename)
line and convert the work sheet to memory stream.


<pre lang="vb">Dim con As SqlConnection
Dim cmd As New SqlCommand
Dim da As New SqlDataAdapter
Dim ds As New DataSet

con = New SqlConnection(connectionstring)
cmd.Connection = con

con.Open()
cmd.CommandTimeout = 200
cmd.CommandText = "zzTestReport_TC"
cmd.CommandType = CommandType.StoredProcedure

da = New SqlDataAdapter(cmd)
da.Fill(ds)

Dim filename As String
Dim col, row As Integer

Dim mystream As New MemoryStream()

Try
ComDset.Reset()
da.Fill(ComDset, "TTbl")
If ComDset.Tables.Count < 0 Or ComDset.Tables(0).Rows.Count <= 0 Then
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Excel As Object = CreateObject("Excel.Application")
If Excel Is Nothing Then
MsgBox("It appears that Excel is not installed on this machine. This operation requires MS Excel to be installed on this machine.", MsgBoxStyle.Critical)
Return
End If


'Export to Excel process

With Excel
.SheetsInNewWorkbook = 1
.Workbooks.Add()
.Worksheets(1).Select()

Dim i As Integer = 1
For col = 0 To ComDset.Tables(0).Columns.Count - 1
.cells(1, i).value = ComDset.Tables(0).Columns(col).ColumnName
.cells(1, i).EntireRow.Font.Bold = True
i += 1
Next
i = 2
Dim k As Integer = 1
For col = 0 To ComDset.Tables(0).Columns.Count - 1
i = 2
For row = 0 To ComDset.Tables(0).Rows.Count - 1
.Cells(i, k).Value = ComDset.Tables(0).Rows(row).ItemArray(col)
i += 1
Next
k += 1
Next
filename = "c:\zTest\File_Exported" & Format(Now(), "dd-MM-yyyy_hh-mm-ss") & ".xls"
.ActiveCell.Worksheet.SaveAs(filename)


End With




cmd.Dispose()
con.Close()</pre>