Please help me Datagrid with Dropdownlist using Createdatasource

[althafexcel]

How can i add a dropdown using the below on third column. Please have a
look at my code. And how am i going to add events to it. How to find
each item selected in the datagrid when submit occurs. Please help me.
datagrid1.datasource=createdatasource()
datagrid1.databind()
function createdatasource()

Dim dt As New DataTable
Dim dr As DataRow

dt.Columns.Add(" ")
dt.Columns.Add("Title")
dt.Columns.Add("Dropdownhere")
dr = dt.NewRow()
dr(0) = datareader("field1")
dr(1) = datareader("field2")
dr(2) = 'how to add a drop down in this place
dt.Rows.Add(dr)

Dim dv As New DataView(dt)
Return dv

end Function