Follow this example:
Protected Sub btnSaveEmail_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSaveEmail.Click
dt_email = Session("dt_email")
Dim dr As DataRow
dr = dt_email.NewRow()
dr("intCodigoClienteEmail") = Cint(DropDownList.Selectedvalue)
dr("intCodigoCliente") = Cint(DropDownList.Selectedvalue)
dr("vchEmail") = Cint(DropDownList.Selectedvalue)
dt_email.Rows.Add(dr)
grdEmail.DataSource = dt_email
grdEmail.DataBind()
Session("dt_email") = dt_email
End Sub
First you take a datatable existing OR can create a new one, then create a datatable DataRow this by adding a line as the selected values.
After all done, load the datatable with the datarow.
After that load the grid with datatable