O que ta faltando pra puxar os dados neste DropDownList

Pessoal

Não estou entendendo o que ta faltando pra puxar os dados neste dropdownlist, alguem ai me ajuda?

Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs)
MyQueryMethod()
End Sub

Function MyQueryMethod() As System.Data.IDataReader
Dim connectionString As String = "server='(local)'; user id='sa'; password='12345'; database='joaobarro'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)

 Dim queryString As String = "SELECT [tiponegocioanunciante].* FROM [tiponegocioanunciante]"
 Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
 dbCommand.CommandText = queryString
 dbCommand.Connection = dbConnection

 dbConnection.Open
 Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

 Return dataReader
	End Function

<font face="tahoma" size="2">Tipo de Negócio:
 <br />
 <asp:DropDownList id="DropDownList1" runat="server" OnSelectedIndexChanged="DropDownList1_SelectedIndexChanged" AppendDataBoundItems="True"></asp:DropDownList>
 </font></td>