请教repeater中使用控件的问题

<asp:Repeater ID="Link_View" Runat="Server" OnItemDataBound="Link_ItemDataBound"><HeaderTemplate>
 <tr> 
<td align=right class=small> <hr noShade size=1 width="100%"> </td>
</tr>
</HeaderTemplate><ItemTemplate>
<TR><td>

  <asp:DropDownList Runat="Server" ID="Link">
  </asp:DropDownList><br />
  <%#Container.DataItem("Class")%>:<input runat="Server" id="Name" value=<%# Container.DataItem("Name") %> /><br>

                  联系人：<input runat="server" id="Contract" value=<%#Container.DataItem("Contract")%> /><BR />
                  
                  职&nbsp;&nbsp;务：<input runat="server" id="Duty" value=<%#Container.DataItem("Duty")%> /><br>
  
                  电&nbsp;&nbsp;话：<input runat="server" id="Tel" value=<%# Container.DataItem("Tel") %> /><br>
                  
                  手&nbsp;&nbsp;机：<input runat="server" id="Mobile" value=<%#Container.DataItem("Mobile")%> /><br>
  
                  传&nbsp;&nbsp;真：<input runat="server" id="Fax" value=<%# Container.DataItem("Fax") %> /><br>
  
                  地&nbsp;&nbsp;址：<input runat="server" id="Address" value=<%#Container.DataItem("Address")%> />   <BR>
                  
                  
</td></TR>

</ItemTemplate><FooterTemplate>
            </table>
</FooterTemplate></asp:Repeater>  Sub Link_ItemDataBound(ByVal s As Object, ByVal e As RepeaterItemEventArgs)
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then            Dim Conn As SqlConnection
            Dim myCmd As SqlCommand
            Dim myRead As SqlDataReader
            Dim LinkTemp As DropDownList            LinkTemp = e.Item.FindControl("Link")
            'If LinkTemp <> Nothing Then
            myConn = New DbWork
            Conn = New SqlConnection(myConn.myConn())
            myCmd = New SqlCommand("Select Class_id,Class From VetanNew_ClassType", Conn)
            Conn.open()
            'myCmd.CommandType = myCmd.CommandType.StoredProcedure
            'myCmd.Parameters.Add("@Number", Request.QueryString("ProNumber"))
            myRead = myCmd.ExecuteReader()            LinkTemp.DataSource = myRead
            LinkTemp.DataTextField = "Class"
            LinkTemp.DataValueField = "Class_id"
            LinkTemp.DataBind()
            'LinkTemp.Items.FindByValue(DataBinder.Eval(e.Item.DataItem, "Class_id").ToString()).Selected = True
            myRead.Close()
            Conn.Close()
            'End If        End If    End Sub
为什么Link就是没反应呢？