Traer datos a una Droplist desde SQL

[hannah_banana]

:-)Hola:

Estoy realizando una aplicación en la que el usuario tiene que llenar un formulario mediante listas. El valor de las listas las guardo en una base de datos.

No tengo problemas en cargar las listas con la base de datos.

Mi problema esta en que mi aplicacion tiene la funcion de editar y lo que se supone que tiene que hacer es lo siguiente:

en una datagrid seleccione el formulario que deseo editar y doy editar, me redirecciona a la pagina donde antes habia llenado el formulario pero ahora
me tendra que aparecer los controles llenos con la informacion, en este caso las listas tienen que aparecer con el valor seleccionado (con lo que se guardo en la BD) y cargada con una consulta.

bueno el problema es que no lo hace, les dejo mi código para explicarme mejor.



Aquí cargo la lista. Y no tengo ningun problema

Private Sub CargaComboNombre(ByVal ocboDatos As DropDownList)

Dim li As ListItem

strSQL = "select id_emp,rtrim(nombre_emp)+' '+rtrim(apellido_p)+' '+rtrim(apellido_m) Nombre from empleado where status2=1"

ds = BuscaInfo(strSQL)

DDLNOMBRE.DataTextField = "Nombre"
DDLNOMBRE.DataValueField = "Id_emp"
DDLNOMBRE.DataSource = ds.Tables(0).DefaultView
DDLNOMBRE.DataBind()
DDLNOMBRE.ClearSelection()
li = New ListItem("Seleccione ...", "0")
li.Selected = True
DDLNOMBRE.Items.Add(li)

End Sub

Aquí es donde traigo los datos en el formulario

Private Sub BuscaUsuario(ByVal ide As Integer)
Dim ilItem As ListItem

strSQL = "select u.Id_usuario,u.Usuario,u.Password1,u.Clave_emp,u.P ermisos,e.nombre_emp Nombre from usuario u "
strSQL += "inner join empleado e on e.Id_emp=u.Clave_emp where u.Id_usuario=" + NoUsuario.ToString() + ""


ds = BuscaInfo(strSQL)

If (ds.Tables(0).Rows.Count > 0) Then

TXTID_USUARIO.Text = ds.Tables(0).Rows(0)("Id_usuario").ToString().Trim ()
TXTUSUARIO.Text = ds.Tables(0).Rows(0)("Usuario").ToString().Trim()
TXTPASSWORD.Text = ds.Tables(0).Rows(0)("Password1").ToString().Trim( )
TXTPERMISO.Text = ds.Tables(0).Rows(0)("Permisos").ToString().Trim()

Aquie esta el problema no trae el valor en la lista

ilItem = New ListItem
DDLNOMBRE.ClearSelection()
Se supone que ilItem guardara los datos que me trae desde la base de datos
ilItem =
DDLNOMBRE.Items.FindByText(ds.Tables(0).Rows(0)("N ombre").ToString().Trim())

Y aquí verifica que ilItem no sea nula, pero se supone que ilItem tiene que venir con datos, pero no me los carga y por tanto marca error y obvio no se llena la lista
If Not (ilItem Is DBNull.Value) Then
ilItem.Selected() = True
End If
End If
End Sub

Ojala alguien pueda ayudarme o decirme si es posible hacer esto con las listas o hay otra forma de hacerlo.

Gracias y espero haberme explicado bien :-)