Dim conn2 As New SqlConnection(".....")
Dim command2 As New SqlCommand("select count(*) as contaiscri from web_sinda where SIN_SINDACATO=' " & Session("linkfield").ToString() & "' order by sin_cognome", conn)
conn.Open()
Dim dr2 As SqlDataReader = command.ExecuteReader()

 If dr2.Read Then
Label5.Text = dr2("contaiscri").ToString
End If
conn2.Close()

End Sub