Llenar un dropdown list con los datos de la base de datos

[imanol22]

gracias compañeros aunque el selectindexchanged no lo entiendo muy bien como tendria ke hacer eso??

el codigo aora mismo seria este simplemente es una pagina de altas y asta aora solo displayo dos combos de tipo y familia y luego le quiero poner un campo para meter el nombre del fichero ,otro para el modelo y otro para la descripcion y esto ke luego mediante concatenacion de strings se vaya insertando.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Str = "server=(local);database=TECNIPESA;trusted_connect ion=yes"
cn = New SqlClient.SqlConnection(Str)

If Not (IsPostBack) Then
llenar_tipo()
llenar_familia()

End If
End Sub


Sub llenar_tipo()
Dim dr As SqlClient.SqlDataReader
Dim cmd As SqlClient.SqlCommand
Dim str As String
Dim sql As String
str = "server=(local);database=TECNIPESA;trusted_connect ion=yes"
cn = New SqlClient.SqlConnection(str)

sql = "Select distinct kcRUT_TIPO from RUTAS"
cmd = New SqlClient.SqlCommand(sql, cn)
cn.Open()
dr = cmd.ExecuteReader()
While dr.Read()
ddlist.Items.Add(New ListItem(dr.Item("kcRUT_TIPO")))
End While
End Sub

Sub llenar_familia()
Dim dr As SqlClient.SqlDataReader
Dim cmd As SqlClient.SqlCommand
Dim str As String
Dim sql As String
str = "server=(local);database=TECNIPESA;trusted_connect ion=yes"
cn = New SqlClient.SqlConnection(str)

sql = "Select distinct kcRUT_FAMILIA from RUTAS"
cmd = New SqlClient.SqlCommand(sql, cn)
cn.Open()
dr = cmd.ExecuteReader()
While dr.Read()
ddlist2.Items.Add(New ListItem(dr.Item("kcRUT_FAMILIA")))
End While


End Sub



en definitiva mi b.d es asi para ke os hagais una idea


DOCUMENTOS RUTAS
------------- --------------
kcDOC_TIPO kcRUT_TIPO
KcDOC_FAMILIA kcRUT_FAMILIA
kcDOC_FICHERO
tDOC_FECHA
cDOC_MODELO
cDOC_DESCRIPCION


habria una ruta fija y segun se vaya cargando los combos se iria haciendo la ruta de insercion.nose si ustedes me podrian ayudar.

gracias de antemano.
un saludo