Dim contaiscri As Integer
 Dim conn2 As New SqlConnection(".....")
 Dim command2 As New SqlCommand("select count(*) as contaiscri from web_sinda where SIN_SINDACATO=' " & Session("linkfield").ToString() & "'", conn2)
 conn2.Open()

'PARTE MODIFICATA
 
command2.ExecuteScalar()
            Dim contaiscri = Convert.ToInt32(command2.ExecuteScalar())

 Label5.Text = contaiscri

 conn2.Close()