Ho provato a fare questo tipo di controllo però è come se la condizione fosse sempre vera.

'sub per estrarre i dati in funzione della scelta fatta dal droplist

Sub bntRisco_Click(sender as Object, e as EventArgs)


Dim aCookie As HttpCookie = Request.Cookies("permessi")

Dim Label1 as String

Label1 = Server.HtmlEncode(aCookie.Value)

If Label1 = "de" Then
Dim recupero_codente as String = Request.QueryString("codente")
Dim recupero_denom as String = Request.QueryString("denominazione")


Dim strConn as String ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/civitas/mdb-database/civitas.mdb")
Dim objConn as New OleDbConnection(strConn)
objConn.Open()



Dim strSQL as String = "SELECT tesnumopercon, desente, tesannruo,tescodfisc, dateven, (tesimprisc/100) AS importo FROM testata_incassi INNER JOIN tabenti ON testata_incassi.tesente=tabenti.codente WHERE testata_incassi.tesente=" & "'" & recupero_codente & "'" & "ORDER BY " & "'" & lstRisco.SelectedItem.Value & "'"

Dim objCommand as New OleDbCommand(strSQL, objConn)

Dim objDataReader as OleDbDataReader
objDataReader = objCommand.ExecuteReader

If ObjDataReader.hasRows then


lblMessaggio.text = "Non risultano incassi per " & lstRisco.SelectedItem.Text & " per il comune " & recupero_denom

else
dgrisco.DataSource = objDataReader
dgrisco.DataBind()

lblMessaggio.Text = "Incassi Per " & lstRisco.SelectedItem.Text & " per il comune " & recupero_denom

end if

ObjDataReader.Close()

end if
End Sub