ASP.NET - PROBLEMA CON DropDownList1

Hola expertos una vez mas molestandoles
estoy haciendo un sistema de asignaciones judiciales en asp.net con sql server
mi problema es el siguiente

codigo:
----------------------------------------------
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim cnm As New SqlConnection
cnm.ConnectionString = "Server=.;database=SysMILCIL;integrated security=SSPI"
cnm.Open()

Dim da As New SqlDataAdapter("Select * from AJ_TIPO_JUZGADOS", cnm)
Dim ds As New DataSet
da.Fill(ds)
Me.DropDownList1.DataSource = ds.Tables(0)
Me.DropDownList1.DataValueField = "cod_tip_juzgado"
Me.DropDownList1.DataTextField = "des_tip_juzgado"
Me.DropDownList1.DataBind()

End Sub

aqui cargo mi dropdownlistbox1 en ello no tengo problemas, al buscar tampoco pero al guardar
no me guarda lo que seleccione sino el primer valor de mi dropdownlistbox en este caso el codigo
'01'
este es mi codigo de GUARDAR

------------------------

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
REM GRABAR
Dim cnm As New SqlConnection
cnm.ConnectionString = "Server=.;database=SysMILCIL;integrated security=SSPI"
cnm.Open()
Dim sql As String
sql = "insert into AJ_JUZGADO values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & DropDownList1.SelectedValue & "','" & DropDownList2.SelectedValue & "','" & DropDownList3.SelectedValue & "','" & DropDownList4.SelectedValue & "','" & DropDownList5.SelectedValue & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
Dim cmd As New SqlCommand(sql, cnm)
cmd.ExecuteNonQuery()
cnm.Close()
MsgBox("Datos Grabados", MsgBoxStyle.Information, "Aviso")
End Sub
-----------------------------------------hay otros dropdownslistbox que viene de otras tablas ..la cosa esd que em salga con uno con el primero utilizo la propiedad SelectedValue pero nada ..solo me captura el primer codigo que es 01

AYUDENME POR FAVOR

La pagina siempre que la cargas ejecuta el evento load, por lo cual, cuando das click en guardar, se ejecuta ese codigo que tienes para llenar el dropdownlist, y por supuesto, se posiciona en el primer registro. La idea para estos casos es validar si el load de la pagina se esta ejecutando debido a algun control de la pagina (en este caso el boton), o es que se esta cargando la pagina por primera vez. Esto lo logras con la propiedad IsPostback.

Asi

If Not IsPostBack Then

Dim cnm As New SqlConnection
cnm.ConnectionString = "Server=.;database=SysMILCIL;integrated security=SSPI"
cnm.Open()

Dim da As New SqlDataAdapter("Select * from AJ_TIPO_JUZGADOS", cnm)
Dim ds As New DataSet
da.Fill(ds)
Me.DropDownList1.DataSource = ds.Tables(0)
Me.DropDownList1.DataValueField = "cod_tip_juzgado"
Me.DropDownList1.DataTextField = "des_tip_juzgado"
Me.DropDownList1.DataBind()

End If

Si no es postback, quiere decir que esta cargando la pagina por primera vez, por lo cual en esa, y solo en esa ocasion (a menos que necesites llenarlo luego otra vez) se deben de llenar los dropdown

Saludos

Si eres de Chile...
No te compliques...

Yo tengo un sistema de gestion judicial completo...

Jajajajja podemos hacer negocios..

AYUDA:
Trata de desarrollar por capas...
crea clases de negocio y de acceso a datos.

saludos