Visual Basic.NET - Enviar Parametro con Valor de un DropDownList

Amigos quiere insertar un registro en una Tabla Medicos, que me inserta el nombre del medico y el Id de su Especialdiad que lo selecciono de un DropDownList, pero siempre me envia el primer elemento.

Aqui Cargo el Drow con los datos de la Tabla Especialidades

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Cmd As New SqlCommand("SELECT IdEspecialidad,Especialidad FROM Especialidades", Cnx)
Dim DaE As New SqlDataAdapter(Cmd)
Dim DsE As New DataSet
DaE.Fill(DsE)
Me.DropDownList1.DataSource = DsE.Tables(0)
Me.DropDownList1.DataTextField = "Especialidad"
Me.DropDownList1.DataValueField = "IdEspecialidad"
Me.DropDownList1.DataBind()
End Sub
-----------------------------------------------------------------------------------------------------------------
Y aqui invoco a un Store y le envio los parametros, pero como les dije siempre me envia el primer elemento, en que estoy fallando.

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Cnx.Open()
Dim Cmd As New SqlCommand("SpU_Insert_Medicos", Cnx)
Cmd.CommandType = CommandType.StoredProcedure
Cmd.Parameters.Add("@Medico", SqlDbType.NVarChar, 40).Value = Trim(Me.TextBox1.Text)
Cmd.Parameters.Add("@IdEspecialidad", SqlDbType.Int).Value = Me.DropDownList1.DataValueField
Cmd.Parameters.Add("@Estado", SqlDbType.Char, 1).Value = "1"
Cmd.ExecuteNonQuery()
Cnx.Close()
End Sub

El segundo parametro te carga el dato?. No entiendo el .Value que pones.
Deberia ser algo asi:

.......
.......
.......

Cmd.CommandText = "Insert into tblClientes (Nombre, Direccion, Telefono) values (@Nombre, @Direccion, @Telefono)"
Cmd.Parameters.Add("@Nombre", SqlDbType.VarChar, 30, "Nombre")
Cmd.Parameters.Add("@Direccion", SqlDbType.VarChar, 50, "Direccion")
Cmd.Parameters.Add("@Telefono", SqlDbType.VarChar, 15, "Telefono")

.......
.......
.......