求助：LISTBOX选中事件的问题

我想实现的功能和写邮件时选收信人的功能一样，就是选择收件人的姓名，然后对应这个人的EMAIL地址填充到收件人的文本框中，
页面上有一个dropdownlist用来显示分组,还有一个listbox用来显示所选组的成员，另外有一个tto.text用来显示所选成员的EMAIL。
数据库的一个ft表中有三个字段，分别是FID,FName,FMail,
页面加载的时候在listbox中显示所有成员的数据，选择组时显示相应组的成员(已经实现)

    Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim strsql As String
        strsql = "select FID,FName,FMail from ft where GID=" & DropDownList1.SelectedValue
        Dim cmd As New SqlCommand(strsql, conn)
        Dim adp As New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        adp.Fill(ds, "ft")
        ListBox1.DataTextField = "FName"
        ListBox1.DataValueField = "FID"
        ListBox1.DataSource = ds
        ListBox1.DataBind()
    '这样填充的永远是第一行记录的EMAIL地址，选择第二个成员时填充的还是第一行中的记录.
    'tto.Text = ds.Tables(0).Rows(0)("FMail").ToString
    '如何实现把所选成员的EMAIL地址填充到收件人的文本框中呢?
        '以下的代码该怎么写啊？
    End Sub
                              
先在这谢谢各位了~~~~