求助：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

先在这谢谢各位了~~~~