Dim source2 As String = WebConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
        Dim sql2 As String = "SELECT DATEDIFF (Day,Dal, Al) FROM Tab1 WHERE Codfisc = '" & Me.GridView1.SelectedRow.Cells(8).Text & "'"
        Dim conn2 As New SqlConnection(source2)
        conn2.Open()
        Dim cmd2 As New SqlCommand(sql2, conn2)
        cmd2.Parameters.AddWithValue("@Codfisc", Me.GridView1.SelectedRow.Cells(8).Text)
        cmd2.Parameters.AddWithValue("@Dal", TextBox2.Text)
        cmd2.Parameters.AddWithValue("@Al", TextBox3.Text)
        Dim dr2 As SqlDataReader
        dr2 = cmd2.ExecuteReader()
        While dr2.Read()
            TextBox4.Text = dr2("Day").ToString()
        End While
        conn2.Close()