Problemas con dropdownlist

[pipeman2009]

Hola miren tengo un problema
tengo 3 dropdownlist enlazados con bd en asp.net
el primero de region,segundo ciudad y el tercero comuna
el problema es que en el tercer drop al hacer autopost o click en un boton me vuelve al primer item y yo quiero qe se mantenga en el mismo les mando los codigos

esto va en el Load de la pagina

'para llenar primer DropDownList de regiones
If Not IsPostBack Then
Dim myConn As SqlConnection = New SqlConnection(conexion)
Dim myCmd As SqlCommand = New SqlCommand("SELECT Region," & _
"IdRegion FROM prueba.dbo.Region", myConn)
myConn.Open()
Dim myReader As SqlDataReader = myCmd.ExecuteReader()

ddlRegion2.DataSource = myReader
ddlRegion2.DataTextField = "Region"
ddlRegion2.DataValueField = "IdRegion"
ddlRegion2.DataBind()

myConn.Close()
myReader.Close()

ddlRegion2.Items.Insert(0, "Seleccione Región")

End If

************************************************** ******************************
*****
esto va en el selectedindex del dropdown region

Try
Dim region As String = ddlRegion2.SelectedValue.Trim()

'para llenar primer DropDownList de regiones
Dim myConn As SqlConnection = New SqlConnection(conexion)
Dim myCmd As SqlCommand = New SqlCommand("SELECT IdRegion," & _
"Ciudad,IdCiudad FROM prueba.dbo.Ciudad WHERE IdRegion = @IdRegion", myConn)
myConn.Open()
With myCmd
.CommandType = CommandType.Text
.Parameters.AddWithValue("IdRegion", region)
.ExecuteNonQuery()
End With
Dim myReader As SqlDataReader = myCmd.ExecuteReader()

ddlCiudad2.DataSource = myReader
ddlCiudad2.DataTextField = "Ciudad"
ddlCiudad2.DataValueField = "IdCiudad"
ddlCiudad2.DataBind()

myConn.Close()
myReader.Close()

ddlCiudad2.Items.Insert(0, "Seleccione Ciudad")
Catch ex As Exception

End Try

************************************************** ******************************

y esto va en el selectedindex del dropdown de las ciudades

Try
Dim ciudad As String = ddlCiudad2.SelectedValue.Trim()

'para llenar primer DropDownList de regiones
Dim myConn As SqlConnection = New SqlConnection(conexion)

Dim myCmd As SqlCommand = New SqlCommand("SELECT IdCiudad," & _
"Comuna FROM prueba.dbo.Comuna WHERE IdCiudad = @IdCiudad", myConn)
myConn.Open()
With myCmd
.CommandType = CommandType.Text
.Parameters.AddWithValue("IdCiudad", ciudad)
.ExecuteNonQuery()
End With
Dim myReader As SqlDataReader = myCmd.ExecuteReader()

ddlComuna2.DataSource = myReader
ddlComuna2.DataTextField = "Comuna"
ddlComuna2.DataValueField = "IdCiudad"
ddlComuna2.DataBind()

myConn.Close()
myReader.Close()

ddlComuna2.Items.Insert(0, "Seleccione Comuna")


Catch ex As Exception

End Try



************************************************** **********

ayudenme plis que no puedo hacerlo
intente con un If Not IsPostBack en el selectedIndex pero si lo coloco me sale el dropdown comuna en blanco ayudenme porfavor