Visual Basic

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
        Dim DS As New DataSet()
        Dim Command As String = "SELECT * FROM Database WHERE Number1 = '" & cboNumber1.Text & "' AND Number2 = '" & cboNumber2.Text & "' AND Number3 = '" & cboNumber3.Text & "'"
        Dim Adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(Command, Connection)
        Dim CMDBuilder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(Adapter)
        Dim I As Integer
        On Error Resume Next
        If cboNumber4.Text = "" Then
            Connection.Open()
            Adapter.Fill(DS)
            For I = 0 To DS.Tables(0).Rows.Count - 1
                cboNumber4.Text = DS.Tables(0).Rows(I).Item(3)
                cboNumber5.Text = DS.Tables(0).Rows(I).Item(4)
                cboNumber6.Text = DS.Tables(0).Rows(I).Item(5)
            Next
        Else
            Adapter.UpdateCommand = CMDBuilder.GetUpdateCommand()
            Adapter.Update(DS.Tables(0))
        End If
End Sub

Imports System.Web.Mail
.
.
.
    Dim Message As New MailMessage()
    Message.To = "someone@whoknowswhere.com"
    Message.From = "me@myhouse.com"
    Message.Subject = "Who cares"
    Message.Body = "I don't know what I'm supposed to say..."
    SmtpMail.SmtpServer = "smtpmailserver.myISP.com"
    SmtpMail.Send(Message)