la cadena de entrada no tiene el formato correcto. vb.net

[manhol]

Protected Sub DlistSubCat_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DlistSubCat.SelectedIndexChanged

Dim ConsultarPrioridad As New ClsConsultas
Dim seleccion3 As String = DlistSubCat.SelectedItem.Value

Dim Cadena3 As String = "SELECT TOP 1 [IDPRIORIDAD], [DESCRIPCION] FROM [HELPDESKWEB].[dbo].[HDPRIORIDAD], [HELPDESKWEB].[dbo].[HDSUBCATEGO] WHERE HDPRIORIDAD.ID = HDSUBCATEGO.IDPRIORIDAD AND [ID] IN (SELECT [IDPRIORIDAD] FROM [HELPDESKWEB].[dbo].[HDSUBCATEGO] WHERE [CODCATSUBCAT] = '" & seleccion3 & "') "




With dListPrioAu
.DataSource = ConsultarPrioridad.ConsultasWebPRIOR(Cadena3)
.DataTextField = "DESCRIPCION"
.DataValueField = "IDPRIORIDAD"
.DataBind()
End With
dListPrioAu.Items.Add(String.Empty)
dListPrioAu.SelectedValue = String.Empty
End Sub

AYUDA >000000 ME GENERA ESE ERROR CUANDO VOY A GUARDAR----SELECCIONO UNA SUBCATEGORIA("LA PC NO PRENDE") Y CUANDO SELECCIONE ESA CATEGORÍA EL DEBE CARGARME LA PRIORIDAD("ALTA") LO CARGA EN UN DropDowList PERO AL MOMENTO DE GUARDAR SALE ""la cadena de entrada no tiene el formato correcto. vb.net"" OSEA QUE NO GUARDA NADA